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

4226 44e2f83cc526 initial checkin penk parents: diff changeset	1	"{ Package: 'stx:libtool' }"
44e2f83cc526 initial checkin penk parents: diff changeset	2
44e2f83cc526 initial checkin penk parents: diff changeset	3	ApplicationModel subclass:#AbstractSettingsApplication
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	4	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel requestor'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	5	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	6	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	7	category:'Interface-Smalltalk'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	8	!
44e2f83cc526 initial checkin penk parents: diff changeset	9
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	11	instanceVariableNames:'allowQualifiedNames warnDollar warnOldStyle fullDebugSupport
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	12	warnCommonMistakes warnUnderscore keepSource constantFolding
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	13	warnCompatibility constantFoldingOptions warnings warnSTX
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	14	allowDollar allowReservedWordsAsSelectors immutableArrays
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	15	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	16	warnUnusedVars allowSqueakExtensions justInTimeCompilation
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	17	canLoadBinaries constantFoldingSelection enableUnderscore
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	18	enableDollar'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	19	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	20	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	21	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	22	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	23
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	24	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	25	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	26	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	27	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	28	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	29	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	30
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	31	AbstractSettingsApplication subclass:#DisplaySettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	32	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	33	clipEncodingListSelection sizeX monitorList ditherList
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	34	clipEncodingList ditherListSelection deepIcons monitorSelection
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	35	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	36	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	37	screenDepthVisualLabelHolder'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	38	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	39	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	40	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	41	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	42
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	43	AbstractSettingsApplication subclass:#EditSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	44	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	45	searchDialogIsModal startTextDragWithControl'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	46	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	47	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	48	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	49	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	50
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	51	AbstractSettingsApplication subclass:#FontSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	52	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	53	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	54	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	55	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	56	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	57	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	58	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	59	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	60
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	61	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	62	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	63	searchDialogIsModal startTextDragWithControl catchClassRedefs
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	64	fullHistoryUpdate historyLines keepSourceSelection keepSource
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	65	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	66	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	67	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	68	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	69	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	70
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	71	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	72	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	73	hasCreatedServerChannel'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	74	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	75	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	76	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	77	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	78
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	79	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	80	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	81	labelTextHolder functionKeyList rawKeyList mappings'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	82	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	83	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	84	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	85	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	86
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	87	AbstractSettingsApplication subclass:#LanguageSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	88	instanceVariableNames:'languageHolder languageList listOfLanguages translatedLanguages
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	89	noticeLabelHolder currentLanguageChannel currentLanguageLabel'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	90	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	91	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	92	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	93	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95	AbstractSettingsApplication subclass:#MemorySettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	96	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	97	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	98	igcFreeAmount stackLimit supportsJustInTimeCompilation'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	99	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	100	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	101	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	102	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	104	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	105	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	106	windowMigrationPassword windowMigrationAuthenticate
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	107	enablePasswordCheck'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	108	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	109	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	110	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	111	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	112
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	113	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	114	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	115	activateOnClick shadows opaqueVariablePanelResize
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	116	formatHostNameinWindowLabels opaqueTableColumnResize
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	117	hostNameInLabelHolder showAccelerators newWindowLabelFormat
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	118	formatHostNameWindowLabel'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	119	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	120	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	121	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	122	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	123
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	124	AbstractSettingsApplication subclass:#OsiSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	125	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	126	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	127	osiCMISEMessageLogging osiACSEDataLogging
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	128	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	129	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	130	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	131	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	132	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	133
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	134	AbstractSettingsApplication subclass:#PrinterSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	135	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	136	landscape pageFormatList pageFormat unitList leftMargin
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	137	possiblePrinters printerType printerTypeSelection
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	138	printCommandList commandList printCommand enableFormat
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	139	enablelandscape enableMargins enableColorBox'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	140	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	141	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	142	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	143	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	144
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	145	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	146	instanceVariableNames:'dynamicPrios preemptive'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	147	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	148	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	149	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	150	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	151
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	152	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	153	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	154	rDoitErrorDebugging rDoitServerPort'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	155	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	156	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	157	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	158	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	159
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	160	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	161	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs canLoadBinaries
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	162	stcDefines stcLibraries stcOptions stcLibraryPath
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	163	stcCompilationSelection stcCompilationList'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	164	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	165	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	166	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	167	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	168
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	169	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	170	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	171	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	172	blockArgumentsOnNewLine spaceAfterReturnToken
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	173	spaceAroundTemporaries oldUserPreferences reformatLocked'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	174	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	175	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	176	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	177	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	178
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	179	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	180	instanceVariableNames:'sourceCacheDir useManager condenseSourceCache
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	181	syntaxColorConfiguration setupSourceCodeManager
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	182	checkClassesWhenCheckingIn formattingConfiguration
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	183	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	184	manager repository listOfModules cvsRootPrototypeList
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	185	addPerModuleRoot removeEnabled perModuleRootModule acceptChannel
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	186	removePerModuleRoot perModuleRoot cvsRootHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	187	selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	188	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	189	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	190	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	191	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	192
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	193	AbstractSettingsApplication subclass:#StyleSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	194	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	195	styleDirectoryContents infoLabelHolder noticeLabelHolder'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	196	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	197	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	198	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	199	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	200
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	201	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	202	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	203	fullSelectorCheck syntaxColoring oldUserPreferences
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	204	syntaxFontSelector syntaxFonts syntaxElementList
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	205	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	206	emphasisDictionary resetListDictionary'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	207	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	208	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	209	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	210	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	211
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	212	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	213	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	214	changeFileName'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	215	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	216	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	217	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	218	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	220	AbstractSettingsApplication subclass:#ToolsSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	221	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	222	showClockInLauncher useNewChangesBrowser useNewFileBrowser
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	223	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	224	useProcessMonitorV2'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	225	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	226	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	227	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	228	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	229
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	230	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	231
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	232	windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	233
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	234	self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	235	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	236
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	237	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	238
68504047f229 * empty log message * penk parents: 4286 diff changeset	239	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	240
68504047f229 * empty log message * penk parents: 4286 diff changeset	241	^ AbstractLauncherApplication classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	242	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	243
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	244	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	245
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	246	requestor
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	247	"return the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	248
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	249	^ requestor
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	250	!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	251
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	252	requestor:something
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	253	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	254
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	255	requestor := something.
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	256	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	257
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	258	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	259
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	260	evaluateModified
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	261	self hasUnsavedChanges ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	262	self modifiedChannel value:true
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	263	].
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	264	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	265
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	266	saveRequest
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	267	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	268
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	269	(self hasUnsavedChanges) ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	270	self askForChangeOnRealease ifTrue:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	271	result := self confirmWithCancel:(resources
97ccd5a946f4 next step penk parents: 4813 diff changeset	272	string:'Save changed ' , settingsString , ' ?').
97ccd5a946f4 next step penk parents: 4813 diff changeset	273	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	274	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	275	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	276	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	277	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	278	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	279	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	280	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	281	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	282	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	283	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	284	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	285	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	286	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	287
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	288	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	289	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	290	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	291	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	292	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	293	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	294
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	295	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	296
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	297	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	298
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	299	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	300	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	301	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	302	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	303	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	304
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	305	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	306
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	307	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	308	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	309	resources := self class classResources.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	310	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	311	settingsString := (UISpecification from:(self class windowSpec)) window label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	312	self readSettings.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	313	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	314
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	315	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	316
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	317	askForChangeOnRealease
4847 05d296c94b4b * empty log message * penk parents: 4846 diff changeset	318	^ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	319	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	320
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	321	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	322
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	323	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	324	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	325
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	326	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	327
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	328	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	329	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	330
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	331	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	332
289972d3e455 * empty log message * penk parents: 4319 diff changeset	333	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	334	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	335	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	336	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	337
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	338	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	339	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	340	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	341
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	342	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	343
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	344	self basicSaveSettings.
4657 a59ba78d52d2 reset UserPrefernces instance on saveSettings because Userpreferences current may change penk parents: 4656 diff changeset	345	currentUserPrefs := UserPreferences current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	346	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	347	! !
44e2f83cc526 initial checkin penk parents: diff changeset	348
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	349	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	350
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	351	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	352
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	353	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	354	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	356	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	358	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	359	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	360
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	361	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	362
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	363	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	364	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	365	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	366
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	367	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	368	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	369
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	370	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	371	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	372	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	373	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	374	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	375
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	376	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	377
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	378	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	379	constantNamed:#'AbstractSettingsApplication::CompilerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	380	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	381	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	382	@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@A@PDA@@DA@P@A@PDA@@DA@P@@@ @@@P@@@P@A@@D@@P@@@P@A@@D@@@H@@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	383	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PD@@PD@@@H@@@D@@@@@@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@@DA@P@A@P@A@P@@@ @@@P@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	384	@@@A@P@A@PDA@PD@@PD@@@H@@@DA@PDA@PD@@PDA@PDA@@DA@@@B@@@A@@@@@@DA@@DA@PDA@P@A@P@@@ @@@PDA@PDA@P@A@PD@@PD@@PD@@@H@@@D@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	385	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	386	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	387	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	388
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	389	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	390
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	391	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	392	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	393	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	395	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	396	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	398	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	399	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	400	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	401	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	402	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	403
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	404	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	406	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	407	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	408	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	409	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	410	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	411	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	412	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	413	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	414	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	415	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	416	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	417	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	418	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	419	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	420	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	421	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	422	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	423	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	424	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	425	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	426	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	427	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	428	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	429	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	430	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	431	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	432	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	433	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	434	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	436	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	437	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	438	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	439	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	440	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#label: 'Allow Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	443	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	444	#model: #allowUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	445	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	446	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#label: 'Allow Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	450	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	451	#model: #allowDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	452	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	453	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	#label: 'Allow VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	#model: #allowQualifiedNames
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	#model: #allowOldStyleAssignment
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	480	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	484	#label: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	498	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	499	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	500	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	501	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	513	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	514	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	515	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	516	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	524	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	525	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	526	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	527	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	528	#model: #warnUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	529	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	530	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	531	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	533	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	534	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	535	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	536	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	537	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	538	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	539	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	540	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	541	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	542	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	543	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	544	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	545	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	546	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	547	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	548	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	549	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	550	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	551	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	552	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	553	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	554	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	555	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	556	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	557	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	558	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	559	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	560	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	561	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	562	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	563	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	564	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	565	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	566	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	567	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	568	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	569	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	570	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	571	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	572	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	573
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	574	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	575	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	576	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	577
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	578	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	579	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	580	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	581	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	582	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	583	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	584	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	585	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	586	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	587	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	588	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	589	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	590	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	591	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	592	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	593	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	594	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	595	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	596	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	597	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	598	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	599	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	600	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	601	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	602	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	603	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	604	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	605	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	606	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	607	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	608	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	609	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	610	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	611	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	612	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	613	#adjust: #right
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	614	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	615	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	616	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	617	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	618	#layout: #(#LayoutFrame 170 0 0 0 -5 1 22 0)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	619	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	620	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	621	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	622	#useIndex: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	623	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	624	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	625
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	626	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	627	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	628	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	629	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	630
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	631	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	632	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	633	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	635	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	636	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	637	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	638
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	639	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	640
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	641	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	643	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	644	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	645	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	646	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	647	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	648	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	649	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	650	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	651	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	652	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	653	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	654	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	655	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	656	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	657	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	659	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	660	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	661	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	662	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	663	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	664	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	666	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	668	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	669	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	670	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	671	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	672	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	673	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	674	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	675	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	676	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	677	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	678
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	679	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	680
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	681	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	682	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	683
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	684	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	685	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	686	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	687	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	688	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	689	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	690	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	691	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	692	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	693	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	694	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	695	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	696	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	697	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	698	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	699	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	700	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	701	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	702	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	703	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	704	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	705	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	706	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	707	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	708	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	709	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	710	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	711	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	712	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	713	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	714	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	715	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	716	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	717	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	718	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	719	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	720	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	722	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	724	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	725	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	726
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	727	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	728
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	729	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	730
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733	allowDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	allowDolphinExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752	allowOldStyleAssignment onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761	allowQualifiedNames onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770	allowReservedWordsAsSelectors onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	771	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	772	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	773	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779	allowSqueakExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	781	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	782	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788	allowUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	790	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	792	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	constantFoldingSelection := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	constantFoldingSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	840	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	841	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	842	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	850	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	fullDebugSupport onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	858	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	859
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	860	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	immutableArrays onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	867	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	869	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877	justInTimeCompilation onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	warnCommonMistakes onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895	warnCompatibility onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897	^ warnCompatibility.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904	warnDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	warnOldStyle onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	warnSTX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	warnUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	warnUnusedVars onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950	warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951	warnings onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	956	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	960	changedObject value ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	977	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	981	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	982	(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	983	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	984	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	985	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	986	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	987	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	988	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	989	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	990	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	991	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	992	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	993	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	994	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	995	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	996	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	997	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	998	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	999	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1000	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1001	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1002	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1004	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1006	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1007	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1008
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1009	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1010
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1011	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1012	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1013
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1014	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1015	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1016
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1017	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1018
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1019	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1020	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1021	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1022
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1023	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1024	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1025
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1026	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1027	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1028	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1029	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1030	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1034	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1035	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1039	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1040	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1044	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1045	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1046	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1049	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1050	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1051	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1052	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1053	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1054	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1055	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1056	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1057	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1058	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1059	#name: 'VerticalPanel5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1061	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1062	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1068	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1069	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1070	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1071	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1078	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1079	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1080
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1081	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1082	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1083	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1084	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1085	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1086	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1087	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1088	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1090	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1091	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1092	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1093	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1096	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1098	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1099	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1100	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1101	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1102	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1103	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1104	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1105	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1108	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1109	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1110	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1111	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1112	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1113	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1114
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1115	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1116	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1117	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1118	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1120	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	#extent: #(#Point 600 320)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1122	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1123	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1124
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1125	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1126	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1127	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1128
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1129	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1130	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1131	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1132
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1133	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1134
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1135	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1136
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1137	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1138	self showErrorNotifier value ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1139	Exception emergencyHandler:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1140	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1141	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1142	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1143	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1144	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1145
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1146	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1147
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1148	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1149	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1150	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1151
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1152	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1153	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1154	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1155	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1156	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1157	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1158	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1159	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1160
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1161	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1162
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1163	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1164
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1165	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1166	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1167	allowSendMailFromDebugger onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1168	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1169	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1170	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1175	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1176	showErrorNotifier onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1177	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1178	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1179	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1180
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1181	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1182
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1183	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1184	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1185	showVerboseStack onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1186	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1187	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1188	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1189
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1190	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1191
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1192	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1193
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1194	^ (
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1195	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1196	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1197	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1198	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1199	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1200	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1201
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1202	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1203
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1204	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1206	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1207	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1208
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1209	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1211	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1212	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1222	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1227	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1229	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1232	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1233
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1234	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1235
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1236	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1237	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1238	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1239
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1240	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1241	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1242
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1243	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1244	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1245	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1247	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1248
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1249	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1250
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1251	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1252	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1253	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1254	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1255	@B (JB (JB (JB (JB (JB\''@@@@@@@(JA@ZFA YE@,KC@,KA0P''I1T@@@@@JB RH2D!!HRD HA(MCP\DI2\U@@@@@B (GRT#H2D"H2L^C0<HAB\''EP@@@@@(
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1256	JA4%H2L!!H"L#G <OB@P''I1T@@@@@JB ZH2P$H1<_G1$OC0XDI2\U@@@@@B (C!!$ HA,\FQ$OC0<FAB\''EP@@@@@(JA@WE!!XWFQ XC <OBPT''I1T@@@@@JB P
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1257	E1XVE1$XF@8OC0$EI2\U@@@@@B (A!!DSD0(CB (B@PDAAB\''EP@@@@@''I2\''I"X''I2\''I2\''I2\''I1T@@@@@I2\''I2X&I2\''I2\''I2\''I2\U@@@@@@@@EQTU
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1258	ER ''I2\''EQTUEQTUEP@@@@@@@@@@@@@(I2\''I1TU@@@@@@@@@@@@@@@@JB\''I2\''I2\''I2\U@@@@@@@@@@@@@B ''I2\''I2\''I2\''EP@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1259	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 60 78 83 61 77 82 63 79 84 63 81 86 66 83 87 66 84 89 66 85 91 67 86 92 68 86 91 69 87 92 69 88 94 70 90 95 71 91 96 71 92 98 72 93 99 73 94 100 74 92 97 74 95 101 75 93 98 75 96 102 76 76 76 76 97 103 77 98 104 77 99 106 79 101 108 80 103 109 81 104 110 82 105 111 83 106 112 83 107 114 86 110 117 87 111 118 88 113 121 89 114 122 90 116 123 91 117 124 92 118 125 126 126 126 127 127 127 139 139 139]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G??0G??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8A??8@G<@@??@@??@@@@@@@@@') ; yourself); yourself]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1260	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1261
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1262	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1264	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1265	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1266	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1268	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1269	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1271	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1272	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1273	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1274	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1281	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1282	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1283	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1284	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1288	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	#label: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1319	#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	#name: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	#model: #sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1329	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1332	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	#label: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1350	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	#labelChannel: #useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	#label: 'Use Fix Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1445	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1448
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1449	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1450	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1455	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1456
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1457	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1458
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1459	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1460	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1461	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1462	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1463	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1464	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1465	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1466	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1467	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1468	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1469
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1470	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1471	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1472	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1473	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1474	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1475	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1476	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1477	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1478	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1479	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1480	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1481	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1482	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1483
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1484	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1485	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1486	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1487	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1488
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1489	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1490	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1491	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1492
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1493	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1494	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1495
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1496	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1498	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1499	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1500	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1501
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1502	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1503	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1504	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1510	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1511	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1512	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1513	self clipEncodingListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1514	value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1515	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1516	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1517	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1519	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1521	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1523	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1524	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1525	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1526	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	clipEncodingListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544	deepIcons := screen supportsDeepIcons asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545	deepIcons onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1548	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566	ditherListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	isColorMonitor := screen hasColors asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	isColorMonitor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	monitorSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	monitorSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	sizeX changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	sizeX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634	sizeY changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	sizeY onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	useFixGrayPalette := screen fixGrayColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	useFixGrayPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	useFixPalette := screen fixColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	useFixPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	visualIsPseudoColor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1729
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1731
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1732	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1755	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1756
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1794	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1795
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1796	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1797	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1798	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1799
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1800	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1801	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1802
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1803	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1804	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1805	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1806	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1807	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1808
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1809	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1810
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1811	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1812	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1813	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1814	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1815	@@(JBP$IBP$FBP$IBP$IAPTE@0L@@@@JB $IBP$IA $IBP$IBPTEAPLC@@@@B (FA XFA XFA XFA TE@0LC@0@@@@(JBP$IBP$FBP$IAPTE@0LC@0P@@@@J
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1816	B $IBP$IA $IAPTE@0LC@0PK@@@@B (IBP$IBPXIBPTEAPLC@0LDB0@@@@(JA XFA XFA TH@0LC@0PD@ @@@@@JB $IBP$I@@ HB@LC@0PB@ @@@@@@B (I
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1817	BP$IBPXHB@ HB@ K@PD@@@@@@@(JA XFA @HB@ HB@ F@@DA@@@@@@@JB XFA X@B@ HB@ FA @A@P@@@@@@B (IBP$I@P HB@XFA (I@PD@@@@@@@(JBP$I
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1818	@PHKA XJBP$IBPDA@@@@@@@JB @@@@D@@@@@@@@@@@@A@P@@@@@@B (@@@D@@@@@@@@@@@@@@PD@@@@@@@(JBP$IBP$@BP$IBP$IBPDA@@@@@@HA@PDA@PDA
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1819	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[160 160 160 0 0 0 48 48 48 255 128 0 192 88 0 255 168 88 195 195 195 88 88 88 255 220 168 255 255 255 220 220 220 64 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@G??LG??<G??<G??<G??<G??<G??<G??<G??8G??0G??0G??0G??0G??0G??0G??0G??0G??0O??0@@@@') ; yourself); yourself]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1820	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1821
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1822	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1824	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1825	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1826	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1832	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1833	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1834	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1844	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1845	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1848	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1855	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1860	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866	#verticalLayout: #top
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1910	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1916	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1918	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1919	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1924	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1925
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1926	UserPreferences current st80EditMode:(self st80EditingMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1927	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1928	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1929	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1930	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1931	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1932	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1933	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1934	UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1935	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1936	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1937
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1938	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1939
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1940	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1941	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1942	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1943
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1944	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1945	self st80EditingMode value:UserPreferences current st80EditMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1946	self st80DoubleClickSelectMode value:TextView st80SelectMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1947	self tabsIs4
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1948	value:(ListView userDefaultTabPositions = ListView tab4Positions).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1949	self searchDialogIsModal
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1950	value:UserPreferences current searchDialogIsModal.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1951	self startTextDragWithControl
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1952	value:UserPreferences current startTextDragWithControl.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1953	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1955
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1956	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1958	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1959
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1961	searchDialogIsModal := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962	searchDialogIsModal onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1967	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	st80DoubleClickSelectMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971	st80DoubleClickSelectMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1976	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	st80EditingMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980	st80EditingMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	startTextDragWithControl := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989	startTextDragWithControl onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	tabsIs4 := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998	tabsIs4 onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2008	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2049	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2050
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2051	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2052	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2053	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2054
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2055	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2056	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2057
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2058	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2059	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2060	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2061	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2062	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2063
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2064	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2065
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2066	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2067	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2068	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2069	@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2070	ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2071	P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2072	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2073
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2074	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2075	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2076	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2077
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2078	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2079	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2080
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2081	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2082	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2083	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2084	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2085	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2086
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2087	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2088
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2089	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2090	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2091	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2092	@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2093	ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2094	P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2095	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2096
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2097	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2098
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2099	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2100
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2101	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2104	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2105	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2106	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2107	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2108
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2109	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2110
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2111	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2112	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2113	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2114
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2115	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2116	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2118	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2119	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2120	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2121	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2122	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2123
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2124	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2125
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2126	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2127	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2134	#max: #(#Point 1024 768)
4727 3e5f6ddd50d8 no bold labels Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	2135	#bounds: #(#Rectangle 16 46 512 658)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2138	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2139	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2140	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2141	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2142	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2143	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2144	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2145	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2146	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2147	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2148	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2149	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2150	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2151	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2152	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2153	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2154	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2155	#(#LabelSpec
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2156	#label: 'All (Others)'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2157	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2158	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2159	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2160	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2161	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2162	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2163	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2164	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2165	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2166	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2167	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2168	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2169	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2170	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2171	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2172	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2173	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2174	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2175	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2176	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2177	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2178	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2179	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2180	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2181	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2182	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2183
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2184	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2185	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2186	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2187	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2188	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2189	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2190	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2191	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2192	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2193	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2194	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2195	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2196	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2197	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2199	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2200	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2201	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2202	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2203	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2206	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2207	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2208	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2209	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2210	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2211	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2212	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2213	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2216	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2217	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2218	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2241	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2244	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2245	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2246	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2250	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2253	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2254	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2255	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2256	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2258	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2260	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2261	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2262	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2263	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2264	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2265	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2266	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2267	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2268	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2278	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2279	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2280	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2282	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2283	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2284	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2285	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2297	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2302	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2303	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2306	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2307	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2312	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2313	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2314	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2315	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2320	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2321	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2322	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2323	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2324	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2355	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2364	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2371	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2372	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2374	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2375	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2376	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2377
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2378	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2379	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2380	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2382	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2384	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2386	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2387	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2388	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2389	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2390	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2392	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2393
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2394	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2395
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2396	Label defaultFont:self labelDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2397	Button defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2398	Toggle defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2399	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2400	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2401	MenuView defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2402	PullDownMenu defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2403	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2404
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2405	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2406	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2407
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2408	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2409	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2410	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2411	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2412	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2413	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2414	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2415	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2416	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2417	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2418	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2419	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2420	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2421
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2422	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2424	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2426	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2427	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2428	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2429	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2430	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2431	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2432	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2433	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2434
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2435	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2436	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2443	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2444	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2455	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2461
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2467	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2468	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2469	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2471	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2472	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2479	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2481	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2482
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2483	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2484
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2485	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2489	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2494	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2496	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2532	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2535	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2545	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2547	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2550	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2555	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2556	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2568	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2573	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2586	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2604	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2612	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2613	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2614	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2615	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2616	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2617	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2618	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2619	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2621	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2622	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2623	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2624	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2625	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2626	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2627	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2628	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2629	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2630	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2631	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2632	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2633	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2634	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2635	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2636	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2637	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2638	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2639	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2640
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2641	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2642	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2643	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2644	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2645	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2646	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2647	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2648	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2649
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2650	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2651	\| f label\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2652
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2653	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2654
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2655	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2656	label := f isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2657	''
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2658	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2659	f userFriendlyName
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2660	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2661	fontNameHolder value:label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2662	self evaluateModified.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2663	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2665	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2667	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2670	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2680	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2685	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2697	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2698	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2699	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2700	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2714	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2715
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2716	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2717
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2718	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2719	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2720
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2721	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2722
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2723	^ #('Keep as String' 'Reference to Filename' 'Reference to Full Path' 'Append and Ref in `st.src''' 'Discard' )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2724	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2725
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2726	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2727
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2728	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2729	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2730	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2731
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2732	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2733	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2734
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2735	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2736	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2737	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2738	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2739	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2740
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2741	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2742
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2743	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2744	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2745	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2746	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2747	@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@A@PDA@@DA@P@A@PDA@@DA@P@@@ @@@P@@@P@A@@D@@P@@@P@A@@D@@@H@@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@@
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	2748	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PDA@PD@@@H@@@DA@P@@@@@A@PD@@@@A@PDA@@@B@@@A@PD@@PDA@@D@@PDA@@DA@P@@@ @@@PDA
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	2749	@@DA@P@A@@DA@PDA@PD@@@H@@@DA@P@@@@@A@P@A@PDA@PDA@@@B@@@A@PD@@PDA@@D@@PDA@PDA@P@@@ @@@PDA@@DA@P@A@@DA@P@A@PD@@@H@@@DA@P@@
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	2750	@@@A@PD@@@@A@PDA@@@B@@@A@PDA@PDA@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2751	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2752	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2753
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2754	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2755
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2756	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2757	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2758	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2759
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2760	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2761	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2762
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2763	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2764	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2765	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2766	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2767	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2768
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2769	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2770
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2771	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2772	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2773	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2774	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2775	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2776	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2777	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2778	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2779	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2780	#bounds: #(#Rectangle 16 42 616 362)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2781	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2782	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2783	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2784	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2786	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2787	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2788	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2789	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2790	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2791	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2792	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2793	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2794	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2795	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2796	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2797	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2798	#model: #catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2799	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2800	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2801	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2803	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2804	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2805	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2806	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2807	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2808	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2810	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2812	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2813	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2814	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2817	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2819	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2820	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2821	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2822	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2823	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2824	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2825	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2826	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2827	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2828	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2829	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2830	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2831	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2832	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2833	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2834	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2835	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2836	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2837	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2838	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2839	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2841	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2842	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2843	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2844	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2845	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2846
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2847	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2848	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2849	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2850	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2851	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2852	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2853	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2854	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2855	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2857	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2858	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2861	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2862	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2863
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2864	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2865	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2866	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2867
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2868	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2869	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2870	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2871
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2872	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2873
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2874	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2875
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2876	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2877	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2878	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2879	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2880	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2881	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2882	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2883	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2884	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2885	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2886	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2887	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2888	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2889
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2890	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2891
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2892	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2893	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2894	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2895
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2896	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2897	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2898	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2899	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2900	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2901	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2902	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2903	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2905	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2906	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2907	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2908	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2909	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2910	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2911	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2912	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2913	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2914	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2915
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2916	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2917
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2918	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2919
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2920	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2921	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2922	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2923	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2924	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2925
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2927
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2928	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2929	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2930	catchClassRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2933	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2934
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2935	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2936
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2937	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2938	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2939	catchMethodRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2941	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2942	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2943
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2944	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2945
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2946	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2948	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2949	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2950	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	fullHistoryUpdate onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2953	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2954	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2955	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2956
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2957	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2958
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2959	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2960	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2961
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962	historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2964	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2965	historyLines := self hasHistoryManager asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2966	historyLines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2967	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2968	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2970
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2971	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2973	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2974	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2975	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2976	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2977	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2979	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2980
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2981	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2982	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983	keepSourceSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2986	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2987
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2988	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2989
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2990	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2995	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2996	loadBinaries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2997	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2998	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2999	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3000
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3001	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3002
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3003	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3005	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3006	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3007	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3009	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	((self hasHistoryManager) ~= self historyLines value)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3014	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3015
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3016	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'documentation'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3017
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3018	version
4851 359312a95673 * empty log message * penk parents: 4847 diff changeset	3019	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.59 2003-04-29 10:07:20 penk Exp $'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3020	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3021
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3022	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3023
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3024	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3025	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3026	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3027
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3028	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3029	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3030
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3031	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3032	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3033	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3034	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3035	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3036
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3037	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3038
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3039	^Icon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3040	constantNamed:#'HTTPStartServerSettingsApplication class defaultIcon'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3041	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3042	@@@@@HQ-M!!T6M&5-\@@@@@@@@@@@@@@@@GT4HB,1DS$9NUQ0@@@@@@@@@@@@@F<3JP\MG X9NSL9RG@@@@@@@@@@@GT2GQ\C@0LIJ%L3O11J\@@@@@@@(XP4
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3043	LA$C@0LCAA<''F"8,F4V3@KT@+0A-JCD]@0LCNT-MSEAPS49V$7L@@@@@MQ@XFPLCNE!!XVE!!XVE!!XVE!!X@@@@@AT$APLC@5"9-K6?1LSD1LFJQ@@@@@@KEBT&
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3044	CPMX*R-+Z2+(JZX\DP@@@@@@RL1LR,NVJ8:.K"7-%&I%GAD@@@@@D$OK3D1HU"[%IRT%IRT%I]0Q@@@@@A=@!!L1KQYXJ"(*J"(.8:T\DP@@@@@)THRLQ$C
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3045	VJ"(J"(IBO%''AD@@@@@@B:P2HL@5"K"8.K"8.K"8M0Q@@@@@@@@J]FB@MX0K0:N#(:N,B2\DP@@@@@@@@@,T\;VJ#B0<OC0<N>&GAD@@@@@@@@@@@@*U"(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3046	0<OC0<OC0I!!0Q@@@@@@@@@@@@@AXLU<#HVF$,BX\DP@@@@@@@@@@@@@VJ#C@@@@@@CC&GAD@@@@@@@@@@@@@E"(''92\''I2\(9!!0Q@@@@@@@@@@@@@AXIVO
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3047	#8>O#9*X\DP@@@@@@@@@@@@@VJ!!>&Y:B"I:M&GAD@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 80 0 0 159 0 0 255 0 2 253 0 7 248 0 8 235 0 8 247 0 14 223 0 16 239 0 20 55 0 20 60 0 32 223 0 35 220 0 47 207 0 50 205 0 60 195 0 64 175 0 64 181 0 64 191 0 74 181 0 80 0 0 87 167 0 90 164 0 92 163 0 97 157 0 102 142 0 103 133 0 107 112 0 111 143 0 114 140 0 115 139 0 127 79 0 127 127 0 150 76 0 159 95 0 165 89 0 184 71 0 191 64 0 200 33 0 207 0 0 208 45 0 213 0 0 225 30 0 235 20 0 240 15 0 243 0 0 244 11 0 245 8 0 255 0 6 132 42 6 168 6 10 149 10 17 41 72 17 96 17 25 25 25 25 25 232 28 28 227 30 30 30 33 32 152 35 35 35 35 35 133 40 40 40 42 131 42 45 45 45 50 50 50 51 51 111 51 55 105 52 52 52 54 60 76 54 116 54 60 60 88 60 60 103 62 61 141 62 62 125 65 64 193 65 104 153 65 112 145 65 136 121 65 160 97 65 192 65 68 68 68 71 111 71 76 121 76 77 76 205 80 80 80 85 100 85 95 95 95 97 97 97 98 207 98 103 103 103 104 104 104 107 105 186 107 106 235 109 108 236 109 109 109 111 109 147 111 111 111 111 111 255 114 113 162 114 114 210 116 116 116 117 117 117 118 116 165 118 117 245 118 118 118 119 117 158 119 119 119 120 120 120 120 159 120 127 127 127 130 146 130 131 129 131 132 131 191 135 135 135 136 135 136 138 138 246 142 142 142 143 143 143 143 143 255 147 145 147 147 146 174 147 146 227 150 148 230 151 149 151 151 151 151 153 150 153 155 153 155 156 154 156 156 155 240 157 156 157 159 157 86 159 159 159 162 160 162 162 161 162 162 162 242 163 161 163 164 163 164 165 164 165 166 164 76 166 164 166 168 165 168 168 166 168 172 169 172 173 170 173 173 171 222 174 172 174 175 174 175 176 173 176 178 175 178 181 178 181 182 179 182 184 181 184 184 182 184 186 183 186 187 184 187 187 187 251 188 186 188 189 188 189 189 188 237 189 197 189 190 190 190 191 189 191 192 191 220 194 192 194 194 194 194 195 193 195 196 196 196 197 194 197 197 197 197 198 195 198 200 191 194 200 192 195 200 197 200 201 199 201 202 202 202 203 202 203 204 204 204 205 203 205 206 206 206 207 204 207 207 207 207 208 147 148 208 157 158 208 207 208 211 208 211 211 211 211 214 213 214 215 213 224 217 215 217 218 217 218 219 217 219 222 220 222 223 222 223 224 223 229 228 227 236 229 228 229 233 232 233]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<D??>(???@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3048	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3049
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3050	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3051
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3052	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3053	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3054	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3055
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3056	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3057	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3058
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3059	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3060	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3061	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3062	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3063	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3064
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3065	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3066
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3067	^
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3068	#(#FullSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3069	#name: #windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3070	#window:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3071	#(#WindowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3072	#label: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3073	#name: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3074	#min: #(#Point 10 10)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3075	#max: #(#Point 2048 1024)
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3076	#bounds: #(#Rectangle 16 42 555 672)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3077	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3078	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3079	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3080	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3081	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3082	#name: 'VerticalPanel1'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3083	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3084	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3085	#verticalLayout: #top
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3086	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3087	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3088	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3089	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3090	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3091	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3092	#name: 'VerticalPanel4'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3093	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3094	#verticalLayout: #topSpace
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3095	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3096	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3097	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3098	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3099	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3100	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3101	#name: 'Box19'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3102	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3103	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3104	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3105	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3106	#label: 'Label'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3107	#name: 'Label2'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3108	#layout: #(#LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3109	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3110	#labelChannel: #informationLabel
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3111	#resizeForLabel: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3112	#adjust: #left
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3113	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3114	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3115
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3116	)
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3117	#extent: #(#Point 539 200)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3118	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3119	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3120	#name: 'Box18'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3121	#extent: #(#Point 539 20)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3122	)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3123	#(#ViewSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3124	#name: 'Box17'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3125	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3126	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3127	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3128	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3129	#label: 'Port:'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3130	#name: 'Label1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3131	#layout: #(#LayoutFrame 3 0 21 0 40 0 43 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3132	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3133	#adjust: #right
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3134	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3135	#(#InputFieldSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3136	#name: 'EntryField1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3137	#layout: #(#LayoutFrame 40 0 20 0 100 0 42 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3138	#model: #portNumberChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3139	#type: #number
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3140	#immediateAccept: true
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3141	#acceptOnReturn: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3142	#acceptOnTab: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3143	#acceptOnLostFocus: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3144	#acceptOnPointerLeave: false
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3145	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3146	#(#ActionButtonSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3147	#label: 'Create new HTTP Server'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3148	#name: 'Button4'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3149	#layout: #(#LayoutFrame 125 0 20 0 -5 1 42 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3150	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3151	#model: #createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3152	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3153	#(#ActionButtonSpec
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3154	#label: 'Remove all HTTP Servers'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3155	#name: 'Button5'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3156	#layout: #(#LayoutFrame 125 0 51 0 -5 1 73 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3157	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3158	#model: #removeAllServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3159	#enableChannel: #hasCreatedServerChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3160	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3161	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3162
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3163	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3164	#extent: #(#Point 539 90)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3165	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3166	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3167
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3168	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3169	#extent: #(#Point 539 620)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3170	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3171	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3172
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3173	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3174	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3175	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3176
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3177	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3178	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3179	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3180
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3181	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3182
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3183	basicSaveSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3184
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3185	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3186	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3187
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3188	createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3189
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3190	\| newServer port runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3191
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3192	port := self portNumberChannel value.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3193	runningServers := HTTPServer runningServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3194	runningServers notEmpty ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3195	runningServers do:[:aServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3196	aServer port = port asInteger ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3197	Dialog warn:'There is already a Server for port ', port asString.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3198	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3199	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3200	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3201	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3202	self withWaitCursorDo:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3203	newServer := HTTPServer new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3204	newServer port:port.
4830 40c63445c248 * empty log message * penk parents: 4825 diff changeset	3205	newServer setupDefaults.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3206	self createServerApplication:newServer forDefault:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3207	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3208	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3209
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3210	createServerApplication:aServerInstance
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3211
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3212	self createServerApplication:aServerInstance forDefault:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3213	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3214
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3215	createServerApplication:aServerInstance forDefault:isDefaultApplication
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3216
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3217
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3218	\|settingsApp settingsAppPosition newItem openApps\|
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	openApps := self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3221	((openApps detect:[:app \| app httpServerInstance == aServerInstance] ifNone:[nil]) notNil) ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3222	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3223	^ self
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	settingsApp := HTTPServerSettingsAppl basicNew.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3226	settingsApp requestor:self requestor.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3227	isDefaultApplication ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3228	settingsApp isDefaultSettingsDialog:isDefaultApplication
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3229	] ifFalse:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3230	settingsApp httpServerInstance:aServerInstance.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3231	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3232	settingsApp basicInitialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3233	settingsAppPosition := requestor getNameOfApplication:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3234	isDefaultApplication ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3235	settingsAppPosition := settingsAppPosition , '/HTTPServer Default Settings'.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3236	] ifFalse:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3237	settingsAppPosition := settingsAppPosition , '/HTTPServer Port ', aServerInstance port asString.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3238	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3239	newItem := requestor addApplClass:#'HTTPServerSettingsAppl' withName:settingsAppPosition.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3240	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3241	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3242	requestor expandItemForApplication:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3243	settingsApp initialize.
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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3246	createServerSubApplicationsForRunningServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3247
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3248	\|runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3249
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3250	self createServerApplication:nil forDefault:true.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3251	runningServers := HTTPServer runningServers asOrderedCollection.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3252	runningServers isEmpty ifTrue:[ ^ self].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3253	runningServers sort:[:a :b \| a port < b port].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3254	runningServers do:[:aHttpServerInstance \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3255	self createServerApplication:aHttpServerInstance forDefault:false.
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	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3258
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3259	readSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3260
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3261	HTTPServer runningServers removeDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3262	HTTPServer runningServers addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3263	self createServerSubApplicationsForRunningServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3264	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3265	self modifiedChannel value:false.
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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3268	removeAllServer
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	HTTPServer terminateAllServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3271	self removeAllServerSubApplications.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3272	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3273	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3274
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3275	removeAllServerSubApplications
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3276
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3277	\|apps\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3278
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3279	apps := requestor getApplicationsByClass:HTTPServerSettingsAppl.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3280	apps do:[:aApp \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3281	aApp isDefaultSettingsDialog ifFalse:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3282	requestor removeByApplication:aApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3283	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3284	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3285	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3286
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3287	setPortOnFreePort
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3288
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3289	\| createdServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3290	createdServer := (self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) collect:[:setApp \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3291	setApp httpServerInstance.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3292	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3293	createdServer size = 1 ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3294	self portNumberChannel value:(HTTPServer defaultPort).
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3295	^ self
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	self portNumberChannel value:0.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3298	createdServer do:[:aHttpServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3299	(aHttpServer notNil and:[aHttpServer port >= (self portNumberChannel value asInteger)]) ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3300	self portNumberChannel value:(aHttpServer port + 1).
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3301	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3302	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3303	! !
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	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3306
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3307	hasCreatedServerChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3308	"automatically generated by UIPainter ..."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3309
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3310	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3311	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3312	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3313	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3314
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3315	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3316	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3317	"/ 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	3318	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3319	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3320	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3321	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3322	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3323
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3324	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3325	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3326	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3327	default:
4843 720bcf8de415 checkin from browser penk parents: 4840 diff changeset	3328	'These dialogs provides two things
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3329	1. Setup the default server settings
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3330	2. control individual running servers (if you want to handle
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3331	multiple servers on multiple ports).
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3332	The default servers settings are specified in the
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3333	"HTTPServer Default Settings" entry.
4843 720bcf8de415 checkin from browser penk parents: 4840 diff changeset	3334	The settings for a new created server are taken from
720bcf8de415 checkin from browser penk parents: 4840 diff changeset	3335	the default server or from the http server instance
720bcf8de415 checkin from browser penk parents: 4840 diff changeset	3336	settings file'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3337	!
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	portNumberChannel
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	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3342	portNumberChannel := ValueHolder new.
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	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3345	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3346
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3347	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
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	createdServerChanged
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3350
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3351	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3352	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3353	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3354
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3355	runningServersChanged
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	\|runningServers\|
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	runningServers := HTTPServer runningServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3360	self createServerSubApplicationsForRunningServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3361	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3362	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3363
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3364	update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3365	changedObject == HTTPServer runningServers ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3366	self runningServersChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3367	^ self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3368	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3369	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3370	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3371
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3372	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
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	release
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3375
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3376	HTTPServer runningServers removeDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3377	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3378
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3379	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3380
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3381	hasCreatedServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3382
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3383	^ ((self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) size > 1)
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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3386	hasUnsavedChanges
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3387
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3388	^ false
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3389	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3390
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3391	help
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3392
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3393	self warn:'no help available here'.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3394	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3395	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3396
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3397	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3398
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3399	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3400	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3401	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3402
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3403	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3404	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3405
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3406	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3407	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3408	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3409	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3410	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3411
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3412	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3413
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3414	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3415	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3416	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	3417	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3418	@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@@@@@@@HBA@PD@@@@@@@@@@@@@@@@@@@@@@HBA@PDA@P@@@@@@@@@@@@@@@@@@@HBA@PD@@@DA@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3419	@@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	3420	@ HDA@PDA@LC@0@@@@@@@@@@@@@@@@HB@ PDA@LC@0@@@@@@@@@@@@@@@@@@@ HBA@LC@0@@@@@@@@@@@@@@@@@@@@@B@ PC@0@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3421	@@HD@0@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3422	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3423	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3424
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3425	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3426
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3427	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3428	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3429	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3431	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3432	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3434	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3435	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3436	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3437	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3438	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3440	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3442	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3443	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3444	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3445	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3446	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3447	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3448	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3449	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3450	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3451	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452	)
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	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3457	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3458	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3460	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3461	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3462	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3463	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3464	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3467	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3472	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3473	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3474	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3487	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3488	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3489	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3490	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3491	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3492	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3493	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3494	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3495	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3496	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3497	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3498	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3499	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3500	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3503	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3504	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3505	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3506	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3507	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3508	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3510	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3515	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3516	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3517	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3519	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3520	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3533
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3534	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3535	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3536
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3537	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3541
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3542	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3543	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3544	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3546	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3548	functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3549	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3551	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3552	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3553	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3554	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3556	functionKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3557	functionKeyList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3558	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3559	"/ functionKeyList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3560	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3562	^ functionKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3563	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565	labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3568	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3569	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3570	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3571	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3573	labelTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3574	labelTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3576	"/ labelTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3577	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3578	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579	^ labelTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3586	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3587	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3588	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3594	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3595	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599	rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3603	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607	selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3616	selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3621	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3627	changeFunctionKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3633
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3634	changeMacroText
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3638	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3640	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3641	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3642	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3643	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3644	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3645	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3646	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3647	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3648	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3650	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3651	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3652	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3653	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3654	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3655	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3656	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3657	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3658	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3662	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3663	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667	macroTextHolder value:macro.
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	changeRawKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3674	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3675	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3676	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3677	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3678	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3684	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3718	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3723	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3730	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3732	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3733	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3734
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3735	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3736
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3737	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3738	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3739	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3740
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3741	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3742	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3743
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3744	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3745	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3746	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3747	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3748	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3749
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3750	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3751
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3752	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3753	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3754	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	3755	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3756	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	3757	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	3758	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	3759	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	3760	@@@@@@@@@@@@@@@@@@@@@@@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	3761	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3762
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3763	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3764
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3765	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3766	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3767	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3769	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3770	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3772	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3773	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3774	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3775	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3776	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3778	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3779
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3780	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3782	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3783	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3784	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3789	#bounds: #(#Rectangle 16 46 491 717)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3790	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3794	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3795	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3796	#layout: #(#LayoutFrame 2 0.0 105 0 -2 1.0 125 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3801	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	#name: 'List1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3805	#layout: #(#LayoutFrame 2 0.0 125 0 -2 1.0 -30 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3810	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3811	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3812	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3814	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3826	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3831	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3833	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3838	#(#HorizontalPanelViewSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3839	#name: 'HorizontalPanel1'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3840	#layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3841	#horizontalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3842	#verticalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3843	#horizontalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3844	#verticalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3845	#component:
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3846	#(#SpecCollection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3847	#collection: #(
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3848	#(#ActionButtonSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3849	#label: 'Reread Language Resources'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3850	#name: 'RereadResourcesButton'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3851	#translateLabel: true
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3852	#model: #rereadResourceFiles
4737 b513890618b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3853	#extent: #(#Point 228 22)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3854	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3855	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3856
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3857	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3858	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3859	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3861	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867	languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3875	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3881	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3884	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3886	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3894	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3895	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3897	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3898	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3899	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3900
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3901	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3902	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3904	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3905	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3906	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3907	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3908	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3909
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3910	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3911	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3912	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3913	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3914	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3915	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3916	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3917	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3918	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3919	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3920	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3921	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3922	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3923	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3924	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	3925	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3926	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3927	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3928	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3929	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3930	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3931	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3932	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3933	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3934	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3935	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3936	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3937	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3938	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3939	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	answer ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3941	switch := ( self requestor fontBoxForEncoding:fontPref)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3942	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3943	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3947	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3954	switch ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3955	self requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3956	self requestor reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3957	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3958	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3960	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3961	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962	self currentLanguageChannel value:self currentLanguage.
4574 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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3965	doubleClick:aEntry
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3966
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3967	self saveSettingsIfUnsavedChangesArePresent.
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	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3971
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3972	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3973	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3974
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3975	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3976	self languageHolder value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3977	self currentLanguageChannel value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3978	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3979	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3980
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3981	rereadResourceFiles
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3982	ResourcePack flushCachedResourcePacks.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3983
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3984	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3985	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3986
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3987	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3988	Smalltalk changed:#LanguageTerritory.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3989	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3991	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3992
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3993	currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3996	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4001	currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4003	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4004	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009	languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	languageHolder := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4013	languageHolder onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4015	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4027
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4028	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4041	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4042	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4049	listOfLanguages := self class classResources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	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	4079
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4080	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4081	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4082
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4085	currentLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4088
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4089	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4091	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4093	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4094	^ languageList at:(listOfLanguages indexOf:lang)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4095	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4096
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4097	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4099	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4101
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4102	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4103
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4104	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4105	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4106	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4107
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4108	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4109	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4110
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4111	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4112	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4113	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4114	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4115	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4116
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4117	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4118
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4119	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4120	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4121	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	4122	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD\@@@@@@@@@@@@@@@@@@@@@@@ARIT(*IRL]R0@@@@@@@@@@@@@@@@@@M2-VUQ<UD4QV@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4123	@@@@@@AURQ<WI!!<UEQTVS%@@@@@@@@@@@@AXI3=CH!!4QDA!!DJAT[SP@@@@@@@@AXRDQSI1,OC <QE1TRHQ @@@@@@@AUR2XWGQ MCP<OC <QHATEN0@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4124	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	4125	@ 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	4126	E1@@GQYHH"1ET @@@@@@@@@@M0\@B!!$GMTP8S"EO@@@@@@@@@@@@@@@:B@@UET$1H$D/@@@@@@@@@@@@@@@@@C OD14\G$9ST@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4127	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	4128	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4129
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4130	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4132	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4136	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4137	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4138
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4139	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4140	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4141	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4142	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4143	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4145	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4146
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4147	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4149	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4150	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4151	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4152	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4153	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4155	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4156	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4158	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4159	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4160	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4161	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4162	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4163	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4164	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4165	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4166	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4167	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4168	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4169	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4170	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4171	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4172	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4174	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4175	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4176	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4177	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4178	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4179	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4180	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4181	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4182	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4183	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4184	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4185	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4186	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4187	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4188	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4189	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4190	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4191	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4192	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4193	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4194	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4195	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4196	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4197	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4198	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4199	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4200	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4201	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4202	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4203	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4204	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4205	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4206	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4207	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4208	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4209	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4210	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4211	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4212	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4213
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4214	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4215	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4216	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4217	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4218	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4219	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4220	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4221	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4222	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4223	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4224	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4225	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4226	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4227	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4228	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4229	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4230	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4231	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4232	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4233	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4234	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4235	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4236	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4237	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4238	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4239	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4240	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4241	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4242	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4243	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4244	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4245	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4246	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4247	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4248	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4249	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4250	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4251
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4252	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4253	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4254	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4255	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4256	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4257	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4258	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4259	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4260	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4261	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4262	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4263	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4264	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4265	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4266	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4267	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4268	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4269	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4270	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4271	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4272	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4273	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4274	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4275	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4276	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4277	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4278	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4279	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4280	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4281	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4282	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4283	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4284	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4285	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4286	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4287	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4288	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4289
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4290	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4291	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4292	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4293	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4294	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4295	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4296	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4297	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4298	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4299	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4300	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4301	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4302	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4303	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4304	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4305	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4306	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4307	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4308	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4309	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4310	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4311	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4312	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4313	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4314	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4315	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4316	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4317	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4318	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4319	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4320	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4321	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4322	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4323	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4324	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4325	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4326	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4327
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4328	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4329	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4330	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4331	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4332	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4333	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4334	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4335	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4336	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4337	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4338	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4339	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4340	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4341	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4342	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4343	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4344	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4345	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4346	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4347	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4348	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4349	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4350	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4351	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4352	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4353	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4354	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4355	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4356	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4357	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4358	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4359	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4360	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4361	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4362	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4363	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4364	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4365
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4366	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4367	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4369	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4370	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4371	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4372	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4373	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4374	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4375	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4376	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4377	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4378	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4379	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4380	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4381	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4382	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4383	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4384	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4385	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4386	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4387	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4388	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4389	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4390	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4391	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4392	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4393	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4394	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4395	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4396	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4397	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4398	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4399	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4400	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4401	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4402	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4403
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4404	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4405	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4406	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4407	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4408	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4409	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4410	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4411	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4412	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4413	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4414	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4415	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4416	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4417	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4418	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4419	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4420	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4421	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4422	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4423	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4424	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4425	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4426	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4427	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4428	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4429	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4430	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4431	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4432	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4433	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4434	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4435	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4436	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4437	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4438	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4439	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4440	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4441
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4442	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4443	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4444	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4445	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4446	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4447	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4448	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4449	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4450	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4451	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4452	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4453	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4454	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4455	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4456	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4457	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4458	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4459	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4460	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4461	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4462	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4463	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4464	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4465	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4466	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4467	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4468	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4469	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4470	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4471	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4472	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4473	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4474	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4475	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4476	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4477	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4478	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4479
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4480	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4481	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4482	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4483	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4484	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4485	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4486	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4487	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4488	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4489	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4490	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4491	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4492	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4493	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4494	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4495	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4496	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4497	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4498	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4499	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4500	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4501	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4502	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4503	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4504	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4505	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4506	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4507	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4508	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4509	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4510	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4511	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4512	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4513	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4514	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4515	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4516	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4517	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4518
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4519	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4520	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4521	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4522	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4523	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4524	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4525	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4526	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4527	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4528	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4529	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4530	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4531	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4532	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4533	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4534	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4535	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4536	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4537	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4538	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4539	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4540	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4541	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4542	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4543	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4544	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4545	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4546	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4547	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4548	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4549	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4550	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4551	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4552	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4553	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4554	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4555	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4556	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4557
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4558	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4559	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4560	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4561	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4562	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4563	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4564	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4565	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4566	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4567	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4568	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4569	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4570	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4571	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4572	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4573	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4574	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4575	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4576	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4577	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4578	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4579	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4580	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4581	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4582	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4583	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4584	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4585	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4586	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4587	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4588	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4589	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4590	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4591	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4592	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4593	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4594	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4595
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4596	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4597	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4598	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4599	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4601	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4602	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4603	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4605	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4606	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4607	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4609	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4610
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4611	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4612
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4613	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4614	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4615	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4616	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4617	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4618	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4619	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4620	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4621	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4622	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4623	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4624	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4625
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4626	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4628	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4629	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4630	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4631
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4632	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4633	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4634	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4635	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4636	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4637	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4638	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4639	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4640	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4641	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4642	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4643	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4644	self modifiedChannel value:false
4286 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	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4648
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4649	codeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4651	codeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4652	codeLimit := ObjectMemory dynamicCodeLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4653	codeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4654	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4655	^ codeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4656	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4658	codeTrigger
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4660	codeTrigger isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4661	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4662	codeTrigger onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4663	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4664	^ codeTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4665	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4667	compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4669	compressLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4670	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4671	compressLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4672	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4673	^ compressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4674	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4676	fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4678	fastMoreLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4679	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4680	fastMoreLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4681	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4682	^ fastMoreLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4683	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4685	igcFreeAmount
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4687	igcFreeAmount isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4688	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4689	igcFreeAmount onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4690	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4691	^ igcFreeAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4692	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4694	igcFreeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4696	igcFreeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4697	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4698	igcFreeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4699	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4700	^ igcFreeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4701	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4703	igcLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4705	igcLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4706	igcLimit := ObjectMemory incrementalGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4707	igcLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4708	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4709	^ igcLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4710	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4712	maxOldSpace
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4714	maxOldSpace isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4715	maxOldSpace := ObjectMemory maxOldSpace asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4716	maxOldSpace onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4717	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4718	^ maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4719	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4721	newSpaceSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4722
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4723	newSpaceSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4724	newSpaceSize := ObjectMemory newSpaceSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4725	newSpaceSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4726	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4727	^ newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4728	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4730	oldIncr
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4732	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4733	oldIncr := ObjectMemory oldSpaceIncrement asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4734	oldIncr onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4735	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4736	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4737	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4739	stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4741	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4742	stackLimit := Process defaultMaximumStackSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4743	stackLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4745	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4746	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4750	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4751	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4753	warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4754
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4755	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4756	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4757	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4758	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4759	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4761	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4762
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4763	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4764
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4765	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4772	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4774	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4775	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4776	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4778	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4779	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4780	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4782	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4783	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4784	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4785	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4786	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4787	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4788
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4789	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4790
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4791	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4792	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4793	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4794
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4795	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4796	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4797
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4798	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4799	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4800	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4801	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4802	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4803
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4804	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4805
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4806	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4807	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4808	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	4809	@@@@_$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	4810	.+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	4811	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	4812	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	4813	[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	4814	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	4815	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4816
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4817	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4818
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4819	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4820	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4821	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4822
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4823	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4824	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4825
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4826	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4827	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4828	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4829	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4830	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4831
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4832	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4833
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4834	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4835	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4836	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4837	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4838	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4839	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4840	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4841	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4842	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4843	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4844	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4845	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4846	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4847	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4848	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4849	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4850	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4851	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4852	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4853	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4854	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4855	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4856	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4857	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4858	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4859	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4860	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4861	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4862	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4863	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4864	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4865	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4866	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4867	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4868	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4869	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4870	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4871	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4872	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4873	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4874	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4875	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4876	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4877	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4878	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4879	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4880	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4881	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4882	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4883	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4884	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4885	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4886	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4887
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4888	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4889	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4890	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4891	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4892	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4893	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4894	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4895	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4896	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4897	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4898	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4899	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4900	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4901	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4902	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4903	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4904	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4905	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4906	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4907	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4908	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4909	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4910	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4911	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4912	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4913	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4914	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4915
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4916	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4917	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4918	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4919	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4920	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4921	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4922	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4923	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4924	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4925	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4926	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4927	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4928	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4929	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4930	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4931	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4932	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4933
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4934	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4935	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4936	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4937	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4938	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4939	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4940	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4941	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4942	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4943	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4944	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4945	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4946	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4947	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4948	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4949	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4950	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4951	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4952	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4953	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4954	#type: #password
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4955	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4956	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4957	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4958	#acceptOnPointerLeave: true
4310 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	#extent: #(#Point 600 22)
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	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4969	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4970	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4971
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4972	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4973	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4974	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4975
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4976	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4977	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4978	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4979
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4980	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4981
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4982	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4983
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4984	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4985	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4986	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4987	SmalltalkShareServer killAll
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	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4990	SmalltalkShareServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4991	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4992	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4993	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4994	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4995	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4996	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4997	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4998	].
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	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5001	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5002	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5003	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5004	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5005	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5006	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5007	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5008	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5009	WindowMigrationServer stop
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	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5012	WindowMigrationServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5013	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5014	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5015	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5016	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5017	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5018	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5019	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5020	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5021	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5022	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5023	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5024
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5025	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5026
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5027	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5028	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5029	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5030
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5031	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5032	self remoteBrowsingEnabled value:(self hasRemoteBrowsingSupport
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5033	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5034	self windowMigrationEnabled value:(self hasWindowMigrationServer
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5035	and:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5036	WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5037	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5038	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5039	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5040	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5041	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5042	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5043	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5044	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5045	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5046	self modifiedChannel value:false
4310 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	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5050
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5051	enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5052
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5053	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5054	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5055	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5056	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5057	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5058	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5059	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5060	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5061	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5062
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5063	remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5064
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5065	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5066	remoteBrowsingEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5067	remoteBrowsingEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5068	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5069	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5070	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5071
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5072	windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5073
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5074	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5075	windowMigrationAuthenticate := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5076	windowMigrationAuthenticate onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5077	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5078	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5079	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5080
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5081	windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5082
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5083	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5084	windowMigrationEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5085	windowMigrationEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5086	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5087	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5088	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5089
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5090	windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5091
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5092	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5093	windowMigrationPassword := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5094	windowMigrationPassword onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5095	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5096	^ windowMigrationPassword.
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	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5100
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5101	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5102	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5103
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5104	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5105
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5106	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5107	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5108	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5109
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5110	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5111	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5112
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5113	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5114
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5115	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5116	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5117	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5118	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5119
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5120	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5121
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5122	hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5123
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5124	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5125	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5126
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5127	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5128
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5129	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5130	self remoteBrowsingEnabled value ~= (self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5131	self windowMigrationEnabled value ~= (self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5132	self windowMigrationPassword value ~= WindowMigrationServer password or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5133	self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil ]]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5134	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5135	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5136
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5137	hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5138
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5139	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5140	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5141
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5142	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5143
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5144	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5145	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5146	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5149	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5150
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5151	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5152	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5153	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5154	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5155	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5156
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5157	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5160	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5161	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	5162	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5163	@@@@@@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	5164	@ 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	5165	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	5166	@ 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	5167	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	5168	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5169
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5170	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5172	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5173	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5174	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5176	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5177	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5178
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5179	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5180	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5181	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5182	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5183	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5185	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5186
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5187	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5188	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5189	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5190	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5191	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5192	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5193	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5195	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5196	#bounds: #(#Rectangle 16 46 526 612)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5199	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5200	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5201	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5202	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5203	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5204	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5205	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5206	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5207	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5208	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5209	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5210	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5211	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5212	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5213	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5214	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5215	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5216	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5217	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5218	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5219	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5220	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5221	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5222	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5223	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5224	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5225	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5226	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5227	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5228	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5229	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5230	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5231	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5232	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5233	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5234	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5235	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5236	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5237	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5238	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5239	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5240	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5241	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5242	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5243	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5244	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5245	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5246	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5247	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5248	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5249	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5250	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5251	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5252	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5253	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5254	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5255	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5256	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5257	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5258	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5259	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5260	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5261	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5262	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5263	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5264	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5265	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5266	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5267	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5268	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5269	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5270	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5271	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5272	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5273	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5274	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5275	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5276	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5277	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5278	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5279	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5280	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5281	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5282	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5283	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5284	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5285	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5286	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5287	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5288	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5289	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5290	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5291	#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	5292	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5293	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5294	#adjust: #leftRight
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5295	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5296	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5297	#label: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5298	#name: 'CheckBox5'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5299	#layout: #(#LayoutFrame 0 0 -22 1 216 0 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5300	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5301	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5302	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5303	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5304	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5305	#layout: #(#LayoutFrame 218 0 -22 1 -5 1 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5306	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5307	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5308	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5309	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5310	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5311	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5312	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5313	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5314	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5315
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5316	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5317	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5319	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5320
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5321	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5322	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5323	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5324	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5325
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5326	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5327	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5328	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5330	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5331	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5332	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5333
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5334	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5335
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5336	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5337
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5338	PopUpView shadows:self shadows value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5339	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5340	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5341	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5342	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5343	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
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	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5347	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5348	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5349
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5350	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5351	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5352	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5353	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5354	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5355	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5356	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5357	]
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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5360	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5361	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
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	currentUserPrefs beepEnabled:self beepEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5364
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5365	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5366	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5367	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5368	Screen current activateOnClick:self activateOnClick value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5369
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5370	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5371
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5372	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5373	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5374
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5375	formatHostNameinWindowLabels
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5376	\|newFormat\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5377
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5378	newFormat := Dialog request:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5379	'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5380	withCRs initialAnswer:newWindowLabelFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5382	newFormat size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5383	newWindowLabelFormat := newFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5384	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5385	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5386	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5387
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5388	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5389
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5390	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5391	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5392	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5393
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5394	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5395	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5396	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5397	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5398	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5399	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5400	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5401	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5402	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5403	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5404	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5405	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5406	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5407	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5408	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5409	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5410	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5411	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5412
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5413	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5415	activateOnClick
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5417	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5418	activateOnClick := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5419	activateOnClick onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5420	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5421	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5422	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424	beepEnabled
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5427	beepEnabled := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5428	beepEnabled onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5429	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5430	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5431	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5432
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5433	focusFollowsMouse
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5436	focusFollowsMouse := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437	focusFollowsMouse onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5438	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5439	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5440	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5441
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5442	formatHostNameWindowLabel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5443
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5444	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5445	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5446	('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	5447	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5448	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5449	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5450
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5451	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5452	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5453	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5454
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5455	hostNameInLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5457	hostNameInLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5458	hostNameInLabelHolder := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5459	hostNameInLabelHolder onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5460	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5461	^ hostNameInLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5462	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5463
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5464	newWindowLabelFormat
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5465
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5466	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5467	newWindowLabelFormat := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5468	newWindowLabelFormat onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5469	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5470	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5471
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5472	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5473	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5474
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5475	opaqueTableColumnResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5477	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5478	opaqueTableColumnResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5479	opaqueTableColumnResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5480	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5481	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5482	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5484	opaqueVariablePanelResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5486	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5487	opaqueVariablePanelResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5488	opaqueVariablePanelResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5489	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5490	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5491	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5492
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5493	returnFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5494
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5495	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5496	returnFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5497	returnFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5498	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5499	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5500	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5501
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5502	shadows
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5503
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5504	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5505	shadows := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5506	shadows onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5507	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5508	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5509	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5510
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5511	showAccelerators
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5512
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5513	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5514	showAccelerators := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5515	showAccelerators onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5516	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5517	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5518	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5519
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5520	takeFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5522	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5523	takeFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5524	takeFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5526	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5527	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5528
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5529	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5531	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5532	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5534	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5536	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5537	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5538	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5540	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5542	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5543	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5544	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5545
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5546	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5548	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5550	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5551	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5552	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5553	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5554	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5555	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5556	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5557	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5558	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5560	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5561	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5562	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5563	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5564
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5565	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5566	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5567
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5568	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5569
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5570	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5571	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5572	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5573
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5574	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5575	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5576
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5577	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5578	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5579	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5580	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5581	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5582
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5583	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5584
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5585	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5586	constantNamed:#'AbstractSettingsApplication::OsiSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5587	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	5588	@@@@_$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	5589	.+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	5590	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	5591	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	5592	[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	5593	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	5594	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5595
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5596	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5597
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5598	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5599	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5600	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5601
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5602	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5603	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5604
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5605	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5606	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5607	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5608	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5609	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5611	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5614	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5615	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5616	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5617	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5618	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5619	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5620	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5621	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5622	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5623	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5624	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5625	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5627	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5628	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5629	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5630	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5631	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5632	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5633	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5634	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5635	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5636	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5637	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5638	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5639	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5640	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5642	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5643	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5644	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5645	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5646	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5647	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5648	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5649	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5650	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5651	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5654	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5655	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5656	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5657	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5658	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5659	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5660	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5661	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5662	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5663	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5664	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5665	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5666	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5667	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5668	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5669	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5670	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5671	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5672	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5673	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5674	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5675	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5676	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5677	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5678	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5679	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5680	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5681	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5682
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5683	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5684	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5685	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5686	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5687	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5688	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5689	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5690	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5691	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5692	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5693	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5694	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5695	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5696	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5697	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5698	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5699	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5700	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5701	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5702	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5703	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5704	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5705	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5706	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5707	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5708	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5709	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5710	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5711	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5712	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5713	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5714	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5715	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5716	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5717	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5718	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5719	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5720	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5721	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5722	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5723	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5724	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5725	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5726
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5727	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5728	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5729	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5730	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5731	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5732	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5733	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5734	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5735	#label: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5736	#name: 'Label3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5737	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5738	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5739	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5740	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5741	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5742	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5743	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5744	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5745	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5746	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5747	#name: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5748	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5749	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5750	#model: #osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5751	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5752	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5753	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5754	#label: 'Log Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5755	#name: 'CheckBox8'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5756	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5757	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5758	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5759	#translateLabel: true
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	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5764	#extent: #(#Point 600 22)
4310 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	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5770	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5771	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5772
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5773	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5774	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5775	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5776
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5777	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5778	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5779	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5780
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5781	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5782
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5783	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5784
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5785	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5786	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5787	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5788	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5789	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5790	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5791	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5792	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5793	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5794	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5795	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5796	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5797	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5798	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5799	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5800
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5801	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5802
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5803	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5804	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5805
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5806	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5807	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5808	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5809	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5810	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5811	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5812	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5813	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5814	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5815	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5816	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5817	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5818	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5819	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5820	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5821	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5822	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5823	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5824	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5825	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5826
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5827	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5828
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5829	osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5830	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5831
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5832	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5833	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5834	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5835	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5836
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5837	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5838	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5839	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5840	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5841	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5842	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5843	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5844	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5845
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5846	osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5847	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5848
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5849	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5850	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5851	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5852	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5853
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5854	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5855	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5856	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5857	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5858	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5859	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5860	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5861	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5862
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5863	osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5864	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5866	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5867	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5868	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5884	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5888	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5893	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5895	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5896
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5897	osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5902	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5906	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5910	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5913
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5914	osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5915	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5917	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5920	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5921
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5925	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5926	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5927	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5928	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5929	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5930
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5931	osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5932	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5933
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5934	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5935	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5936	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5937	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5938
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5943	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5944	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5945	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5946	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5947
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5948	osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5949	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5950
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5951	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5952	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5953	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5954	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5955
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5956	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5957	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5958	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5959	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5960	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5961	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5962	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5963	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5964
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5965	osiROSEInvokationLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5966	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5967
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5968	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5969	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5970	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5971	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5972
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5973	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5974	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5975	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5976	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5977	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5978	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5979	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5980	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5981
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5982	osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5983	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5984
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5985	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5986	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5987	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5988	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5989
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5990	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5991	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5992	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5993	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5994	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5995	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5996	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5997	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5998
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5999	osiROSEResponseLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6000	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6001
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6002	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6003	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6004	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6005	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6006
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6007	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6008	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6009	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6010	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6011	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6012	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6013	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6014	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6015
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6016	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6017
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6018	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6019
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6020	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6021	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6022	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6023	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6024	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6025	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6026	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6027	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6028	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6029	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6030	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6031	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6032	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6033
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6034	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6035
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6036	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6037	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6038	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6039
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6040	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6041	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6042
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6043	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6044	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6045	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6046	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6047	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6048
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6049	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6050
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6051	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6052	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6053	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	6054	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6055	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDA@PDA@P@@@@@@@@@A@@@@@@@@@@@@@@@@@P@@@@@@@@@@@P@@@PDA@P@@@PDA@@D@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6056	@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	6057	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	6058	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6059	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6060	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6061
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6062	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6063
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6064	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6065	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6066	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6067
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6068	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6069	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6070
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6071	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6072	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6073	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6074	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6075	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6076
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6077	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6078
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6079	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6080	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6081	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6082	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6083	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6084	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6085	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6086	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6087	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6088	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6089	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6090	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6091	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6092	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6093	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6094	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6095	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6097	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6098	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6099	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6100	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6101	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6102	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6106	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6107	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6108	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6109	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6110	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6111	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6112	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6113	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6114	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6115	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6116	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6118	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6119	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6120	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6121	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6122	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6123	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6124	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6125	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6126	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6127	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6128	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6129	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6130	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6131	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6132	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6133	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6134	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6135	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6136	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6137	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6138	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6139	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6140	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6141	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6142	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6143
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6144	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6145	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6146	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6147	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6150	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6151	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6152	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6153	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6154	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6155	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6156	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6157	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6158	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6159	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6160	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6161	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6162	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6163	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6164	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6165	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6166	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6167	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6168	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6169	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6170	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6171	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6172	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6173	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6174	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6175	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6176	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6177	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6178	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6179	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6181
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6182	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6183	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6184	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6185	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6186	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6198	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6199	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6200	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6201	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6202	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6203	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6210	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6211	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6212	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6214	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6217	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6218	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6221	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6224	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6225	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6226	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6227	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6228	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6231	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6232	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6233
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6235	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6237	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6238	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6239	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6240	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6241	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6242	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6243	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6247	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6254	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6258	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6262	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6263	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6265	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6267	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6268	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6269	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6271	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6275	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6276	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6279	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6281	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6282	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6286	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6287	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6288	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6289
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6290	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6291	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6292	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6293	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6294	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6295	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6296	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6297	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6298	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6299	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6300	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6301	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6302	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6303	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6304	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6305	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6306	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6307	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6308	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6309	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6310	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6311	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6312	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6313	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6314	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6315	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6316	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6317
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6319	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6320	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6321	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6322
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6323	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6324	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6325	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6326	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6327	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6328	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6329	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6330
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6331	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6332	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6333	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6334	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6335	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6336	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6337	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6338	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6339	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6340	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6341	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6342	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6343	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6344	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6345	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6346	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6347	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6348
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6349	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6350	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6351	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6352	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6354	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6355	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6356	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6358	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6359	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6360	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6361
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6362	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6363
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6364	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6365
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6366	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6367	Printer printCommand:self printCommand value.
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 supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6370	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6371	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6372	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6373	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6374	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6375	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6376	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6377	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6378	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6379	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6380	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6381	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6382	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6383	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6384	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6385	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6386	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6387	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6388	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6389
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6390	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6392	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6393	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6394	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6395
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6396	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6397	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6398	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6399	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6400	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6401	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6402	self printCommand value:Printer printCommand.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6403	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6404	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6405	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6406	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6407	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6408	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6409	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6410	self modifiedChannel value:false
4286 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	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6415	bottomMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6417	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6418	bottomMargin := Printer bottomMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6419	bottomMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6420	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6421	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6422	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6424	enableColorBox
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6426	enableColorBox isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6427	enableColorBox := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6428	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6429	^ enableColorBox.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6430	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6432	enableFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6434	enableFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6435	enableFormat := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6436	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6437	^ enableFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6438	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6440	enableMargins
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6442	enableMargins isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6443	enableMargins := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6444	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6445	^ enableMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6446	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6447
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6448	enablelandscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6449
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6450	enablelandscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6451	enablelandscape := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6452	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6453	^ enablelandscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6454	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6456	landscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6457
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6458	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6459	landscape := Printer landscape asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6460	landscape onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6461	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6462	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6463	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6465	leftMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6466
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6467	leftMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6468	leftMargin := Printer leftMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6469	leftMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6470	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6471	^ leftMargin.
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6476	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6477	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6478	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6479	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6480	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6481	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6482	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6483	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6484	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6485	pageFormat onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6486	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6487	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6488	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6489
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6490	pageFormatList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6492	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6493	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6494	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6495	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6496	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6498	printCommand
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6499
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6500	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6501	printCommand := Printer printCommand asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6502	printCommand onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6503	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6504	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6505	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6507	printCommandList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6509	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6510	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6511	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6512	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6513	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6514
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6515	printerType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6517	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6518	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6519	printerType onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6520	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6521	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6522	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6524	printerTypeSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6526	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6527	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6528	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6529	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6530	printerTypeSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6531	printerTypeSelection onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6532	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6533	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6534	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6536	rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6537
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6538	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6539	rightMargin := Printer rightMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6540	rightMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6541	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6542	^ rightMargin.
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	selectedUnit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6547	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6548	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6549	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6550	selectedUnit changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6551	selectedUnit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6552	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6553	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6554	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6556	supportsColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6558	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6559	supportsColor := Printer supportsColor asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6560	supportsColor onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6562	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6563	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6565	topMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6567	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6568	topMargin := Printer topMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6569	topMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6571	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6572	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6574	unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6576	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6577	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6578	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6579	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6580	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6582	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6584	printerTypeSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6586	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6587	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6588	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6589	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6590	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6591	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6592	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6593	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6594	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6595	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6597	printerTypeSelectionOrUnitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6599	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6601	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6602	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6603	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6604	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6605	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6606	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6607	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6608	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6609	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6610	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6611	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6612	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6613	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6614	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6615	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6616	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6617	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6618	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6619	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6620	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6621	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6622	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6623
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6624	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6625	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6626	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6627	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6629	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6630	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6631	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6633	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6634	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6635	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6636	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6637	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6638	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6639	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6640	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6641	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6642	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6643	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6644	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6645	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6646	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6647	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6648	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6650	unitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6651	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6653	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6654	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6655	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6656	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6657	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6659	super update:something with:aParameter from:changedObject
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	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6663
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6664	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6665	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6667	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6669	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6670	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6671	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6673	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6675	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6676	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6677	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6679	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6680
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6681	commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6682	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6683	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6684	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6685	commandList := PrinterStream defaultCommands.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6686	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6687	commandList := #('lpr'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6688	'lp'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6689	) asOrderedCollection.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6690	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6691	(commandList includes:self printCommand value) not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6692	commandList add:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6693	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6694	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6695	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6696	^ commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6697	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6698
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6699	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6702	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6703	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6704	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6705	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6706	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6707	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6708	printer := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6709	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6710	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6711	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6712	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6713	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6714	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6715	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6716	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6717	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	6718	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	6719	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	6720	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6721	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6722	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6723	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6724	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6725	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6726	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6727
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6728	possiblePrinters
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6729	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6730	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6731	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6732	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6733	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6734
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6735	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6736
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6737	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6738	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6739	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6742	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6743
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6744	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6745	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6746	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6747	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6748	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6749
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6750	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6753	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6754	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	6755	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC@0L@@@@@@@@@@@@@@@@@@@@C@0LB@PDB@0LC@@@@@@@@@@@@@@@C@ HBA@DAA@HB@ L@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6756	@@@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	6757	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	6758	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	6759	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	6760	@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	6761	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6762
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6763	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6764
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6765	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6766	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6767	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6770	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6771
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6772	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6773	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6774	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6775	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6776	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6777
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6778	<resource: #canvas>
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	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6781	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6782	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6783	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6784	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6785	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6786	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6787	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6788	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6789	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6790	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6791	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6792	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6793	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6794	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6795	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6796	#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	6797	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6798	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6799	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6800	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6801	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6802	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6803	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6804	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6805	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6806	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6807	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6808	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6809	#extent: #(#Point 600 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6810	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6811	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6812	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6813	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6814	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6815	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6816	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6817	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6818	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6819	#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	6820	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6821	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6822	#translateLabel: true
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	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6828	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6829	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6830
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6831	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6832	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6833	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6834
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6835	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6836	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6837	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6838
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6839	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6840
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6841	basicSaveSettings
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	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6844	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6845	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6846	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6847	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6848	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6849	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6850	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6851	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6852	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6853	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6854
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6855	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6856
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6857	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6858	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6859	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6860
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6861	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6862	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6863	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6864	self modifiedChannel value:false
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6867	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6868
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6869	dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6870	"automatically generated by UIPainter ..."
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	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6873	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6874	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6875	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6876
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6877	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6878	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6879	"/ 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	6880	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6881	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
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	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6884	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6885
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6886	preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6887	"automatically generated by UIPainter ..."
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	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6890	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6891	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6892	"*** (and replace this comment by something more useful ;-)"
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	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6895	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6896	"/ 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	6897	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6898	"/ preemptive onChangeSend:#preemptiveChanged to:self.
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	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6901	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6902
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6903	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6904
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6905	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6906
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6907	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6908	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6909	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6910	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6911	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6912
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6913	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6914
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6915	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6916	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6917	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6918
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6919	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6920	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6921
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6922	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6923	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6924	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6925	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6926	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6927
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6928	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6929
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6930	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6931	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6932	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	6933	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6934	@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	6935	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	6936	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	6937	JR0+JP@,JP@@@@HUEP@@@@@@@@@@@B$+KB,,J20)JP@@@@@@@@@@@@@@@@@)K@@)J0@+JR$@@@@@@@@@@@@@@@@@@@@@JR0)@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6938	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6939	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6940
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6941	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6942
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6943	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6944	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6945	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6946
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6947	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6948	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6949
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6950	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6951	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6952	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6953	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6954	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6955
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6956	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6957
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6958	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6959	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6960	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6961	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6962	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6963	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6964	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6965	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6966	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6967	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6968	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6969	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6970	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6971	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6972	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6973	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6974	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6975	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6976	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6977	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6978	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6979	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6980	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6981	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6982	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6983	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6984	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6985	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6986	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6987	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6988	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6989	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6990	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6991	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6992	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6993	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6994	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6995	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6996	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6997	#label: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6998	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6999	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7000	#enableChannel: #hasRDoitServerClass
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7001	#model: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7002	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7003	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7004	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7005
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7006	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7007	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7008	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7009	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7010	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7011	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7012	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7013	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7014	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7015	#label: 'Port:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7016	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7017	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7018	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7019	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7020	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7021	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7022	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7023	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7024	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7025	#model: #rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7026	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7027	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7028	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7029	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7030	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7031	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7032	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7033
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7034	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7035	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7036	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7037	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7038	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7039	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7040	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7041	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7042	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7043	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7044	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7045	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7046	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7047	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7048	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7049	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7050	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7051
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7052	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7053	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7054	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7055	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7056	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7057	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7058	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7059	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7060	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7061	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7062	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7063	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7064	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7065	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7066	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7067	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7068	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7069
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7070	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7071	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7072	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7073	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7074	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7075	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7076	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7077	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7078	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7079	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7080	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7081	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7082	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7083	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7084	#translateLabel: true
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	#extent: #(#Point 600 23)
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	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7095	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7096	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7097
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7098	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7099	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7100	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7101
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7102	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7103	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7104	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7105
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7106	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7107
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7108	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7109
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7110	\|rDoits\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7111
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7112	RDoItServer defaultPortNumber:self rDoitServerPort value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7113	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7114	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7115	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7116	rDoits := self rDoitsEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7117	rDoits ~~ RDoItServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7118	rDoits ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7119	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7120	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7121	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7122	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7123	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7124	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7125	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7126	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7127	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7128	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7129	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7130	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7131
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7132	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7133
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7134	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7135	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7136	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7137
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7138	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7139	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7140	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7141	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7142	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7143	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7144	self rDoitServerPort value:RDoItServer defaultPortNumber
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7145	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7146	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7147	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7148	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7149	self rDoitErrorDebugging value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7150	self rDoitServerPort value:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7151	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7152	self modifiedChannel value:false
4310 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	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7156
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7157	rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7158
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7159	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7160	rDoitErrorDebugging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7161	rDoitErrorDebugging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7162	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7163	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7164	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7165
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7166	rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7167
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7168	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7169	rDoitErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170	rDoitErrorLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7171	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7172	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7173	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7174
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7175	rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7176
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7177	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7178	rDoitLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7179	rDoitLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7180	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7181	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7182	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7183
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7184	rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7185
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7186	rDoitServerPort isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7187	rDoitServerPort := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7188	rDoitServerPort onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7189	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7190	^ rDoitServerPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7191	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7192
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7193	rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7194
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7195	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7196	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7197	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7198	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7199	^ rDoitsEnabled.
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	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7203
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7204	rDoitsEnabledChanged
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7205	self evaluateModified.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7206	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	7207	RDoItServer autoload.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7208	rDoitServerPort value isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7209	rDoitServerPort value:(RDoItServer defaultPortNumber).
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	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7213
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7214	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7215	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7216	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7217	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7218	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7219
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7220	super update:something with:aParameter from:changedObject
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	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7224
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7225	postOpen
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7226	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7227
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7228	postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7229
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7230	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7231	^ super postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7232	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7233
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7234	postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7235
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7236	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7237	^ super postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7238	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7239
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7240	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7241
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7242	hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7243
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7244	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7245	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7246
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7247	hasRDoitServerClass
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7248	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7249	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7250
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7251	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7252
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7253	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7254	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7255	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7256	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7257	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7258	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7259	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7260	self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7261	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7262	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7263	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7264	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7265
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7266	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7267
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7268	stcCompilationDemoStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7269
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7270	^ #('never')
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7273	stcCompilationFullVersionStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7274
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7275	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7276	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7277
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7278	stcCompilationOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7279
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7280	^ #( always default never)
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7283	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7284
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7285	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7286	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7287	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7290	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7291
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7292	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7293	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7294	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7295	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7296	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7297
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7298	<resource: #image>
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	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7301	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7302	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	7303	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7304	@@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	7305	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	7306	@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	7307	@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	7308	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7309	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7310
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7311	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7312
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7313	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7314	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7315	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7318	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7319
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7320	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7321	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7322	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7323	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7324	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7325
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7326	<resource: #canvas>
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	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7329	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7330	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7331	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7332	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7333	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7334	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7335	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7336	#max: #(#Point 1024 768)
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7337	#bounds: #(#Rectangle 14 46 614 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7338	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7339	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7340	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7341	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7342	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7343	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7344	#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	7345	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7346	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7347	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7348	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7349	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7350	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7351	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7352	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7353	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7354	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7355	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7356	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7357	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7358	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7359	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7360	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7361	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7362	#adjust: #right
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	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7365	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7366	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7367	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7368	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7369	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7370	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7371	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7372	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7373	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7374	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7375
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7376	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7377	#extent: #(#Point 600 29)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7378	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7379	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7380	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7381	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7382	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7383	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7384	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7385	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7386	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7387	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7388	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7389	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7392	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7393	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7394	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7395	#model: #stc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7396	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7397	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7398	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7399	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7400	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7401	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7402	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7403
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7404	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7405	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7406	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7407	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7408	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7409	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7410	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7411	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7412	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7413	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7414	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7415	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7416	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7417	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7420	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7421	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7422	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7423	#model: #stcOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7424	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7425	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7426	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7427	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7428	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7429	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7430	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7431
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7432	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7433	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7434	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7435	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7436	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7437	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7438	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7439	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7440	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7441	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7442	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7443	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7444	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7445	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7448	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7449	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7450	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7451	#model: #cc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7452	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7453	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7454	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7455	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7456	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7457	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7458	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7459
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7460	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7461	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7462	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7463	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7464	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7465	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7466	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7467	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7468	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7469	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7470	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7471	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7472	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7473	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7476	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7477	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7478	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479	#model: #ccOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7480	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7481	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7482	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7483	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7484	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7485	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7486	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7487
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7488	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7492	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7493	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7494	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7495	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7497	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7498	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7499	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7504	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7505	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7506	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7507	#model: #stcIncludes
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7508	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7509	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7510	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7511	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7512	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7513	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7514	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7515
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7516	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7517	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7518	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7519	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7520	#name: 'Box6'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7521	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7522	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7523	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7524	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7525	#label: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7526	#name: 'Label6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7527	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7528	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7529	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7532	#name: 'EntryField6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7533	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7534	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7535	#model: #stcDefines
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7536	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7537	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7538	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7539	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7540	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7541	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7542	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7543
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7544	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7545	#extent: #(#Point 600 34)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7546	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7547	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7548	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7549	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7550	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7551	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7552	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7553	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7554	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7555	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7556	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7557	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7560	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7561	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7562	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7563	#model: #linkCommand
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7564	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7565	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7566	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7567	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7568	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7569	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7570	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7571
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7572	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7573	#extent: #(#Point 600 33)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7575	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7576	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7577	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7578	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7579	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7580	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7581	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7582	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7583	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7584	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7585	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7589	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7590	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7591	#model: #linkArgs
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7592	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7593	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7594	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7595	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7596	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7597	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7598	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7599
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7600	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7601	#extent: #(#Point 600 32)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7603	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7604	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7605	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7606	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7607	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7608	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7609	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7610	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7611	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7612	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7613	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7616	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7617	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7618	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7619	#model: #stcLibraries
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7620	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7621	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7622	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7623	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7624	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7625	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7626	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7627
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7628	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7629	#extent: #(#Point 600 31)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7630	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7631	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7632	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7633	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7634	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7635	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7636	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7637	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7638	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7639	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7640	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7641	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7644	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7645	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7646	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7647	#model: #stcLibraryPath
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7648	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7649	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7650	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7651	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7652	#acceptOnPointerLeave: true
4387 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	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7658	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7659	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7660
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7661	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7662	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7663	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7664
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7665	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7666	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7667	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7668
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7669	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7670
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7671	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7672
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7673	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7674	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7675	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7676	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7677	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7678	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7679	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7680	Compiler stcPath:self stc value
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	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7683	ObjectFileLoader linkArgs:self linkArgs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7684	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7685	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7686	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7687	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7688	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7689	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7690	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7691	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7692	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7693
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7694	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7695
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7696	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7697	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7698	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7699
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7700	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7701	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7702	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7703	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7704	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7705	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7706	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7707	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7708	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7709	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7710	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7711	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7712	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7713
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7714	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7715	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7716	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7717	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7718	self stcLibraryPath value:t
4387 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	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7721	self thisIsADemoVersion ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7722	self stcCompilationSelection value:(self class stcCompilationOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7723	indexOf:(Compiler stcCompilation)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7724	ifAbsent:2)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7725	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7726	self stcCompilationSelection value:2
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7727	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7728	self modifiedChannel value:false
4387 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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7731	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7732
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7733	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7734
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7735	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7736	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
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	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7739	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7740
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7741	cc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7742
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7743	cc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7744	cc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7745	cc onChangeSend:#evaluateModified to:self.
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	^ cc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7748	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7749
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7750	ccOptions
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	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7753	ccOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7754	ccOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7755	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7756	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7757	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7758
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7759	enableStcLibraryPath
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	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7762	!
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	linkArgs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7765
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7766	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7767	linkArgs := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7768	linkArgs onChangeSend:#evaluateModified to:self.
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	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7771	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7772
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7773	linkCommand
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7774
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7775	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7776	linkCommand := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7777	linkCommand onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7778	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7779	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7780	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7781
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7782	stc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7783
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7784	stc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7785	stc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7786	stc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7787	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7788	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7789	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7790
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7791	stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7792
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7793	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7794	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7795	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7796	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7797	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7798	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7799	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7800	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7801	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7802
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7803	stcCompilationSelection
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	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7806	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7807	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7808	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7809	stcCompilationSelection := 2 asValue.
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	stcCompilationSelection onChangeSend:#evaluateModified to:self.
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	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7814	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7815
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7816	stcDefines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7817
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7818	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7819	stcDefines := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7820	stcDefines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7821	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7822	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7823	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7824
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7825	stcIncludes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7826
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7827	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7828	stcIncludes := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7829	stcIncludes onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7830	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7831	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7832	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7833
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7834	stcLibraries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7835
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7836	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7837	stcLibraries := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7838	stcLibraries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7839	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7840	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7841	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7842
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7843	stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7844
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7845	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7846	stcLibraryPath := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7847	stcLibraryPath onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7848	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7849	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7850	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7851
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7852	stcOptions
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	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7855	stcOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7856	stcOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7857	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7858	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7859	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7860
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7861	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7862
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7863	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7864
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7865	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7866	searchedLibs := ObjectFileLoader searchedLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7867	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7868	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7869	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7870	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7871	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7872	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7873	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7874	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7875	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7876	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7877	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7878	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7879	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7880	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7881	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7882	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7883	ObjectFileLoader libPath ~= self stcLibraryPath value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7884	])])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7885	]]]]]]]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7886	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7887	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7888
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7889	thisIsADemoVersion
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7890
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7891	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7892	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7893
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7894	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7895
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7896	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7897
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7898	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7899	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7900	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7901
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7902	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7903
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7904	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7905	self at:index. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7906	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7907	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7908	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7909	Transcript showCR:''hello''. "/ condition
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 ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7912	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7913	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7914	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7915	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7916	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7917	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7918	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7919	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7920	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7921	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7922	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7923	Transcript showCR:''hello''. "/ looping
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	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7926	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7927	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7928	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7929	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7930	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7931	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7932	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7933	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7934	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7935	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7936	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7937	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7938	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7939
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7940	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7941
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7942	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7943	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7944	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7945
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7946	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7947	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7948
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7949	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7950	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7951	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7952	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7953	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7954
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7955	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7956
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7957	^Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7958	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7959	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	7960	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7961	@@(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	7962	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	7963	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	7964	@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	7965	@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	7966	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7967
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7968	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7969
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7970	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7971	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7972	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7975	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7976
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7977	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7978	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7979	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7980	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7981	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7982
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7983	<resource: #canvas>
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	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7986	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7987	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7988	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7989	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7990	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7991	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7992	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7993	#max: #(#Point 1024 768)
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7994	#bounds: #(#Rectangle 16 42 620 718)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7995	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7996	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7997	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7998	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7999	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8000	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8001	#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	8002	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8003	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8004	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8005	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8006	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8007	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8008	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8009	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8010	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8011	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8012	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8013	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8014	#verticalSpace: 10
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8015	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8016	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8017	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8018	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8019	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8020	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8021	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8022	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8023	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8024	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8025	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8026	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8027	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8028	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8029	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8030	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8031	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8032	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8033	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8034	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8035	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8036	#adjust: #left
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	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8039	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8040	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8041	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8042	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8043	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8044	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8045	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8046	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8047	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8048
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8049	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8050	#extent: #(#Point 594 300)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8051	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8052	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8053	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8054	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8055	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8056	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8057	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8058	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8059	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8060	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8061	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8062	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8063	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8064	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8065	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8066	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8067	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8068	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8069	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8070	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8071	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8072	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8073	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8074	#label: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8075	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8076	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8077	#model: #emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8078	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8080	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8081
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8082	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8083	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8084	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8085	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8086	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8087	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8088	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8089	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8090	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8091	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8094	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8095	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8096	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8097	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8098	#label: 'Space after '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8099	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8100	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8101	#model: #spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8102	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8103	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8104	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8105
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8106	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8107	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8108	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8109	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8110	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8111	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8112	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8113	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8114	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8115	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8116	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8117	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8118	#model: #blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8122	#label: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8123	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8124	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8125	#model: #cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8126	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8127	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8128	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8129
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8130	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8131	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8132	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8133	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8134	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8135	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8136	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8137	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8138	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8139	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8140	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8141	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8142	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8143	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8144	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8148	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8152	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8153	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8154	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8155	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8159	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8164	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8165	#model: #maxLengthForSingleLineBlocks
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8166	#type: #number
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8167	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8168	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8169	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8170	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8171	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8172	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8174	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8175	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8176	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8178	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8179	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8181	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8182	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8183	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8184	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8185	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8187	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8188	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	#extent: #(#Point 292 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8197	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	#extent: #(#Point 293 22)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8203	#extent: #(#Point 594 30)
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	#extent: #(#Point 594 150)
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	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8214	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8215	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8216
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8217	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8218	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8219	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8220
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8221	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8222	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8223	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8224
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8225	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8226
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8227	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8228
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8229	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8230	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8231	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8232	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8233	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8234	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8235	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8236	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8237	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8238	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8239	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8240	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8241	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8242	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8243	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8244	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8245	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8246	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8247	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8248
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8249	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8250
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8251	"/ self warn:'no help available here'.
4419 d5de0cf67edb new source code format settings help file penk parents: 4405 diff changeset	8252	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8253	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8254
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8255	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8256	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8257	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8258	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8259	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8260	self emptyLineAfterTemporaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8261	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8262	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8263	self spaceAfterKeywordSelector
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8264	value:RBFormatter spaceAfterKeywordSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8265	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8266	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8267	self maxLengthForSingleLineBlocks
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8268	value:RBFormatter maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8269	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8270	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8271	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8272	self modifiedChannel value:false
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8275	reformat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8276
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8277	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8278	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8279	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8280
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8281	reformatLocked ifFalse:[
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	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8284	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8285	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8286	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8287	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8288	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8289	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8290	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8291	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8292	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8293
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8294	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8295	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8296	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8297	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8298	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8299	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8300	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8301	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8302	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8303
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8304	tree := RBParser
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8305	parseMethod:self class exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8306	onError: [:aString :position \| nil].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8307	tree do:[:node \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8308	(node ~~ tree and:[node parent isNil]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8309	self error:'No parent for node'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8310	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8311	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8312	self editorText value:tree printString.
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	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8317	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8318	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8319	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8320	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8321	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8322	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8323	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8324	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8325
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8326	resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8327
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8328	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8329	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8330	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8331	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8332	self spaceAroundTemporaries value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8333	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8334	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8335	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8336	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8337	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8338	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8339	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8340
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8341	resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8342
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8343	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8344	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8345	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8346	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8347	self spaceAroundTemporaries value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8348	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8349	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8350	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8351	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8352	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8353	self reformat.
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
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	autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8359
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8360	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8361	autoFormat := currentUserPrefs autoFormatting asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8362	autoFormat onChangeSend:#evaluateModified to:self
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	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8365	!
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	blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8368
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8369	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8370	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8371	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8372	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8373	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8374	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8375
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8376	cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8377
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8378	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8379	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8380	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8381	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8382	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8383	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8384
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8385	editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8386
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8387	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8388	editorText := ValueHolder new.
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	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8391	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8392
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8393	emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8394
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8395	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8396	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8397	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8398	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8399	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8400	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8401
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8402	maxLengthForSingleLineBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8403
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8404	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8405	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8406	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8407	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8408	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8409	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8410
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8411	spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8412
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8413	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8414	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8415	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8416	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8417	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8418	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8419
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8420	spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8421
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8422	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8423	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8424	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8425	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8426	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8427	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8428
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8429	spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8430
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8431	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8432	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8433	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8434	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8435	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8436	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8437
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8438	tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8439
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8440	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8441	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8442	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8443	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8444	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8445	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8446
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8447	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8448
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8449	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8450	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8451	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8452	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8453	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8454	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8455	changedObject == self spaceAfterReturnToken or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8456	changedObject == self spaceAroundTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8457	changedObject == self tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8458	]]]]]]]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8459	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8460	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8461	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8462	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8463	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8464	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8465
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8466	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
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	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8469	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8470	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8471	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8472	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8473	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8474	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8475	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8476	reformatLocked := false.
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	postBuildTextEditor:aWidget
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8480
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8481	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8482	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8483	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8484
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8485	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8486
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8487	hasUnsavedChanges
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	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8491	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8492	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8493	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8494	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8495	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8496	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8497	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8498	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8499	]]]]]]]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8500	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8503	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8504
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8505	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8506	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8507	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8510	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8511
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8512	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8513	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8514	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8515	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8516	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8517
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8518	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8521	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8522	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	8523	@@@@@@@@@@@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	8524	@@@QMTT5H0$@@@@@@@@@@@ F@@@@@@@@FT(>GPX@@@@@@@@@@@@@A @@@@@@@A!!HMR4H@@@@@@@@@@@@@@@@@@XNE1\ QSL]B0XFA @@@@@@@@@@@@@FGDAI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8525	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	8526	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	8527	@@@@@@@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	8528	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	8529	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8530
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8531	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8533	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8534	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8535	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8537	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8538	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8540	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8541	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8542	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8543	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8544	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8546	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8548	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8549	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8550	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8551	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8552	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8553	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8554	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8555	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8556	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8557	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8558	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8559	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8560	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8561	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8562	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8563	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8564	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8565	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8566	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8567	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8568	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8569	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8570	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8571	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8572	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8573	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8574	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8575	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8576	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8577	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8578	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8579	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8580	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8582	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8583	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8584	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8585	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8586	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8587	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8588	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8589	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8590	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8591	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8592	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8593	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8594	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8595
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8596	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8597	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8598	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8599	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8600	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8601	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8602	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8603	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8604	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8605	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8606	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8607	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8608	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8609	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8610	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8611	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8612	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8613	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8614	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8615	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8616	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8617	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8618	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8619	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8620	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8621	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8622	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8623	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8624	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8625	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8626	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8627	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8628	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8629	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8630	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8631
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8632	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8633	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8634	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8635	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8636	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8637	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8638	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8639	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8640	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8641	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8642	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8643	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8644	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8645	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8646	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8647	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8648	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8649	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8650	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8651	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8652	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8653	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8654	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8655	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8656	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8657	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8658	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8659	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8660	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8661	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8662	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8663	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8664
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8665	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8666	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8667	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8668	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8669	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8670	#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	8671	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8672	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8673	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8674	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8675	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8676	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8677	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8678	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8679	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8680	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8681	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8682	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8683	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8684	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8685	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8686	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8687	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8688	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8689	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8690	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8691	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8692	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8693	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8694	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8695	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8696	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8697	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8698	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8699	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8700	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8701	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8702	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8703	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8704	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8705	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8706	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8707	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8708	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8709	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8710	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8711	#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	8712	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8713	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8714	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8715	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8716	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8717	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8718	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8719	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8720	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8721	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8722	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8723	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8724	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8725	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8726	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8727	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8728	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8729	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8730	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8731	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8732	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8733	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8734	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8735	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8736	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8737	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8738	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8739	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8740	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8741	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8742	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8743	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8744	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8745	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8746	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8747	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8748	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8749	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8750	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8751	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8752	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8753
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8754	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8755	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8756	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8757
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8758	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8759	#extent: #(#Point 661 321)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8760	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8761	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8762	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8763	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8764	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8765	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8766	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8767	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8768	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8769	#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	8770	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8771	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8774	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8775	#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	8776	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8777	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8778	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8779	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8780	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8781	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8782	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8783	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8784	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8785
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8786	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8787	#extent: #(#Point 661 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8788	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8789	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8790	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8791	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8792	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8793	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8794	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8795	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8796	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8797	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8798	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8799	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8800	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8801	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8802	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8803	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8804	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8805	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8806	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8807	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8808	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8809	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8810	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8811	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8812	#extent: #(#Point 286 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8813	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8814	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8815
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8816	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8817	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8818	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8819	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8820	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8821	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8822	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8823	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8824	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8825	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8826	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8827	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8828	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8829	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8830	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8831	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8832	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8833
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8834	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8835	#extent: #(#Point 661 25)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8836	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8837	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8838	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8839	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8840	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8841	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8842	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8843	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8844	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8845	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8846	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8847	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8848	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8849	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8850	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8851
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8852	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8853	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8854	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8855	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8856
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8857	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8858	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8859	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8860	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8862	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8863	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8864	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8865
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8866	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8867	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8868	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8869
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8870	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8872	manager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8874	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8875	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8876
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8877	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8878
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8879	addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8880
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8881	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8882
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8883	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8884	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8885	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8886	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8887	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8888	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8889	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8890	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8891	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8892	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8893	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8894
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8895	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8896
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8897	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8898	manager isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8899	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8900	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8901	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8902	Class tryLocalSourceFirst:self localSourceFirst value.
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	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8905	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8906	nm := self sourceCacheDir value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8907	nm size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8908	(fn := nm asFilename) exists ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8909	(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8910	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8911	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8912	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8913	makeExecutableForAll.
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	(fn exists
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8917	and:[fn isDirectory
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8918	and:[fn isReadable
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8919	and:[fn isWritable]]]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8920	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8921	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8922	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8923	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8924	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8925	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8926
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8927	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8928	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8929	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8930	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8931	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8932	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8933	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8934	self cvsBinDirectoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8935	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8936	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8937	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
4760 206a67dba8a8 repository changes after initialize will now reloaded penk parents: 4737 diff changeset	8938	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8939	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	8940	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8941	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8942	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8943	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8944	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8945
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8946	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8947	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8948	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8949
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8950	condenseSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8952	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8953	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8955	flushSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8956
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8957	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8958	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8959
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8960	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8961
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8962	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8963	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8964	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8965
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8966	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8967	self hasManager ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8968	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8969	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8970	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8971	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8972	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8973	repository := manager repositoryName.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8974	repositoryHolder := (repository ? '') asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8975	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8976	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8977	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8978	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8979	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8980	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8981	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8982	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8983	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8984	self cvsRootHolder
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8985	value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8986	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8987	rootsPerModule notNil ifTrue:[
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8988	listOfModules := rootsPerModule keys asList.
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8989	].
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	8990	self selectedPerModuleRootChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8991	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8992	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8993
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8994	removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8995
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8996	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8997
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8998	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8999	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9000	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9001	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9002	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9003	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9004	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9006	setupSourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9008	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9009	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9010	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9011	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9012	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9013	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9014	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9015	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9016
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9017	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9018
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9019	acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9020
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9021	acceptChannel isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9022	acceptChannel := TriggerValue new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9023	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9024	^ acceptChannel.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9025	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9026
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9027	checkClassesWhenCheckingIn
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9029	checkClassesWhenCheckingIn isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9030	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9031	checkClassesWhenCheckingIn onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9032	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9033	^ checkClassesWhenCheckingIn.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9034	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9035
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9036	cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9037	cvsBinDirectoryHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9038	cvsBinDirectoryHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9039	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9040	^ cvsBinDirectoryHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9041	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9042
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9043	cvsIsSetup
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9044	cvsIsSetup isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9045	cvsIsSetup := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9046	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9047	^ cvsIsSetup.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9048	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9049
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9050	cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9051
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9052	cvsRootHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9053	cvsRootHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9054	cvsRootHolder onChangeSend:#evaluateModified to:self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9055	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9056	^ cvsRootHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9057	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9058
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9059	cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9060
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9061	cvsRootPrototypeList isNil ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9062	OperatingSystem getDomainName = 'exept' ifFalse:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9063	cvsRootPrototypeList := #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9064	'host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9065	':pserver:user@host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9066	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9067	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9068	] ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9069	cvsRootPrototypeList := #(
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9070	'/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9071	'exept:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9072	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9073	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9074	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9075
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9076	OperatingSystem isUNIXlike ifTrue:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9077	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9078	'/cvs/stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9079	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9080	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9081	OperatingSystem isMSDOSlike ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9082	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9083	':local:c:\cvs\stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9084	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9085	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9086	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9087	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9088	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9089	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9090	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9091	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9092
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9093	listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9094
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9095	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9096	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9097	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9098	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9099	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9100	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9101
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9102	localSourceFirst
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9104	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9105	localSourceFirst := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9106	localSourceFirst onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9107	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9108	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9109	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9110
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9111	perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9112	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9113
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9114	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9115	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9116	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9117	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9118
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9119	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9120	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9121	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9122	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9123	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9124	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9125	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9126	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9127
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9128	perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9129	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9130
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9131	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9132	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9133	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9134	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9135
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9136	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9137	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9138	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9139	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9140	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9141	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9142	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9143	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9144
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9145	removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9146
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9147	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9148	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9149	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9150	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9151	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9152
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9153	selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9154
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9155	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9156	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9157	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9158	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9159	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9160	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9161	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9162	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9163
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9164	sourceCacheDir
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9165	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9166	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9167
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9168	useManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9169	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9170	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9171
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9172	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9173
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9174	selectedPerModuleRootChanged
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9175
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9176	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9177
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9178	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9179	module := self selectedPerModuleRoot value.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9180	module isNil ifTrue:[ ^ self].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9181	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9182	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9183	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9184	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9185	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9186
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9187	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9188	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9189
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9190	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9191
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9192	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9193	nm isEmptyOrNil ifTrue:[^ self].
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 := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9196	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9197	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9198	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9199	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9200	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9201	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9202	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9203	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9204	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9205	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9206	(fn exists
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9207	and:[fn isDirectory
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9208	and:[fn isReadable
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9209	and:[fn isWritable]]]) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9210	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9211	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9212	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9213	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9214	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9215	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9217	update:something with:aParameter from:changedObject
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9218	changedObject == sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9219	self sourceDirChanged.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9220	self evaluateModified.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9221	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9222	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9223
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9224	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9225	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9226	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9227	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9228
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9229	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9230	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9231
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9232	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9233
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9234	initialize
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9235	(AbstractSourceCodeManager notNil) ifTrue:[AbstractSourceCodeManager autoload].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9236
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9237	useManager := false asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9238	useManager onChangeSend:#evaluateModified to:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9239
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9240	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9241	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9242
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9243	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9244	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9245
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9246	SourceCodeManager == CVSSourceCodeManager ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9247	rootsPerModule declareAllFrom:(SourceCodeManager repositoryNamesPerModule).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9248	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9249
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9250	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9251	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9253	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9254	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9255
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9256	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9258	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9259	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9260	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9261
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9262	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9264	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9265	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9266	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9267
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9268	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9270	hasManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9271	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9272	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9273	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9275	hasUnsavedChanges
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9276	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil))
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9277	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9278
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9279	((self hasManager and:[self useManager value])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9280	and:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9281	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9282	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9283	])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9284	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9285
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9286	((UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9287	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9288
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9289	(CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9290	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9291
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9292	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9293	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9294
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9295	((Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9296	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9297
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9298	(self sourceCacheDir value ~= AbstractSourceCodeManager cacheDirectoryName)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9299	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9300
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9301	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9302	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9303
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9304	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9305
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9306	standardStyles
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9307
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9308	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9309	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9310	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9311	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9312	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9313	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9314	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9315	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9316	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9317	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9318	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9319
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9320	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9321
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9322	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9323	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9324	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9325
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9326	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9327	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9328
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9329	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9330	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9331	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9332	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9333	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9334
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9335	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9336
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9337	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9338	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9339	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	9340	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9341	@@@@@@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	9342	@ 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	9343	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	9344	@ 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	9345	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	9346	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9347
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9348	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9349
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9350	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9351	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9352	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9354	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9355	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9357	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9358	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9359	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9360	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9363	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9368	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369	#(#WindowSpec
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9370	#label: 'ViewStyle Selection'
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9371	#name: 'ViewStyle Selection'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373	#max: #(#Point 1024 768)
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9374	#bounds: #(#Rectangle 16 42 491 573)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9375	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9376	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9377	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9378	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9379	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9380	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9381	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9382	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9383	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9384	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9385	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9387	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9388	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9389	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9390	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9391	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9392	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9393	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9394	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9395	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9396	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9397	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9398	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9399	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9400	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9401	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9402	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9403	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9404	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9405	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9406	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9407	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9408	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9409	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9410	#hasVerticalScrollBar: true
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9411	#doubleClickSelector: #doubleClickAt:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9412	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9413	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9414	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9415	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9417	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9418	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9419	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9420
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9421	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9422
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9423	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9424
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9425	\| newStyle transcript\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9426
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9427	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	9428
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9429	self withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9430	Transcript showCR:'change style to ' , newStyle , ' ...'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9431	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9432	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9433	DebugView newDebugger.
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9434	transcript := Transcript current.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9435	transcript notNil ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9436	\| app\|
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9437	app := transcript topView application.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9438	(app respondsTo:#reopenLauncher) ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9439	app reopenLauncher.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9440	].
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9441	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9442	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9443
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9444	doubleClickAt:aLine
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9445
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9446	self saveSettings.
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9447	!
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9448
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9449	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9451	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9452	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9453	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9454
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9455	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9456	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9457	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9458
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9459	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9460
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9461	infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9463	infoLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9464	infoLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9465	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9466	^ infoLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9467	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9468
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9469	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9471	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9472	noticeLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9473	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9474	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9475	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9477	selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9479	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9480	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9481	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9482	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9483	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9484	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9486	showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9488	showStandardStylesOnly isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9489	showStandardStylesOnly := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9490	showStandardStylesOnly addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9491	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9492	^ showStandardStylesOnly.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9493	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495	styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9496
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9497	styleList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9498	styleList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9499	styleList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9500	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9501	^ styleList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9502	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9503
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9504	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9506	changeInfoLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9508	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9510	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9511	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9512	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9513	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9514	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9515	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9516	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9517	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9518	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9519	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9520	self infoLabelHolder value:comment
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	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9524	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9525	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9526	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9527	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9528	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9529	self changeInfoLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9530	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9531	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9532	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9534	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9535	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	updateList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9539	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9541	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9542	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9543	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9544	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9545	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9546	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9548	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9549	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9550	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9552	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9555	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9557	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9559	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9560	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9565	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9570	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9572	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9573	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9574	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9576	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9580	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9581
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9582	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9583	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9584	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9585	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9586	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9587	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9588	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9589	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9590	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9591	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9593	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9594	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	9595	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9596	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9597	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9598
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9599	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9600	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9601	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9602	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9603	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9604	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9605
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9606	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9607	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9608	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9610	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9611	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9612	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9614	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9616	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9618	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9619	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9620
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9621	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9622
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9623	emphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9624
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9625	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9626	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9627	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9628	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9629	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9630	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9631	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9632	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9633	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9634	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9635	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9636	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9637	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9638	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9639	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9640	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9641	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9642	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9643	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9644
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9645	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9646
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9647	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9648	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9649	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9650
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9651	\|methodVar\|
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	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9654	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9655	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9656	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9657	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9658	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9659	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9660	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9661	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9662	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9663	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9664	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9665
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9666	fontList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9667
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9668	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9669	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9670	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9671	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9672	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9673	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9674	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9675	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9676	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9677	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9678	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9679	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9680	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9681	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9682	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9683	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9684	reverse
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9688	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9689
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9690	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9691	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9692	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9695	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9696
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9697	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9698	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9699	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9700	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9701	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9702
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9703	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9706	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9707	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	9708	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	9709	@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	9710	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	9711	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	9712	@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	9713	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	9714	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9715
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9717
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9718	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9719	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9720	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9723	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9724
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9725	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9726	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9727	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9728	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9729	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9730
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9731	<resource: #canvas>
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	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9734	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9735	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9739	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9742	#bounds: #(#Rectangle 16 42 711 651)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749	#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	9750	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9755	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9756	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9757	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9758	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9759	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9760	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9761	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9762	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9775	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9776	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9777	#model: #fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9778	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9784	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9785	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9786	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9787	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9788	#extent: #(#Point 685 280)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9789	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9790	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9802	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9804
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9805	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9806	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9813	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9815	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9816	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9817	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9818	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9819	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9822	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9823	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9824	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9826	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9827	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9828	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9829
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9830	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9831	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9832	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9833	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9834	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9835	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9838	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9841	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9842	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9843	#labelsAreColored: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9844	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9845	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9846	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9847	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9849	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9850	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9851	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9852	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9853
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9855	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9856	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9862	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9863	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9865	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9866	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9867	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9868	#enableChannel: #syntaxColoring
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	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9871	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9872	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9873	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9874	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9875	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9876	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9877	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9878	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9879
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9880	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881	#extent: #(#Point 685 35)
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	#extent: #(#Point 695 609)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9887	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9888	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9889
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9890	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9891	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9892	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9893
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9894	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9895	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9896	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9897
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9898	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9899
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9900	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9901
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9902	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9903	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9904	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9905	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9906
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9907	formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9908	"automatically generated by UIPainter ..."
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	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9911	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9912	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9913
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9914	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9915
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9916	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9917	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9918
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9919	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9920
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9921	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9922	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9923	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9924
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9925	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9926	\|colorList resetListLoc\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9927
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9928	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9929	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9930	reset;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9931	current) declareAllFrom:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9932	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9933	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9934	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9935	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9936	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9937	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9938	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9939	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9940	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9941	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9942	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9943	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9944	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9945	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9946
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9947	recolor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9948
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9949	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9950
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9951	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9952	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9953	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9954	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9955	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9956	self coloredText value:text
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9959	resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9960
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9961	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9962
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9963	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9964	currentUserPrefs perform:resetSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9965	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9966	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9967	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9968
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9969	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9970
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9971	coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9972
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9973	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9974	coloredText := ValueHolder new.
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	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9977	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9978
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9979	fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9980
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9981	fullSelectorCheck isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9982	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9983	fullSelectorCheck onChangeSend:#evaluateModified 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	^ fullSelectorCheck.
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	resetList
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	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9992	"/ 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	9993	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9994	"/ resetList onChangeSend:#resetListChanged to:self.
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	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9997	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9998
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9999	resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10000
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10001	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10002	resetListSelection := ValueHolder new.
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	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10005	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10006
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10007	syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10008
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10009	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10010	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10011	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10012	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10013	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10014	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10015
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10016	syntaxColoring
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	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10019	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10020	syntaxColoring addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10021	syntaxColoring onChangeSend:#evaluateModified to:self.
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	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10024	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10025
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10026	syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10027	"automatically generated by UIPainter ..."
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	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10030	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10031	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10032	"*** (and replace this comment by something more useful ;-)"
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	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10035	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10036	"/ 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	10037	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10038	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10039	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10040	^ syntaxElementList.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10043	syntaxElementSelection
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	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10046	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10047	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10048	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
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	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10051	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10052
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10053	syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10054	"automatically generated by UIPainter ..."
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	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10057	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10059	"*** (and replace this comment by something more useful ;-)"
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	syntaxEmphasisList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10062	syntaxEmphasisList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10063	"/ 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	10064	"/ syntaxEmphasisList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10065	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10066	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10067	^ syntaxEmphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10068	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10070	syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10071
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10073	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10074	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10075	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10076	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10077	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10079	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10080
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10081	getEmphasis:anEmphasisOrSymbol
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10082	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10083
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10084	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10085	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10086
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10087	syntaxColorChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10088
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10089	currentUserPrefs at:(self syntaxColorSelector value) put:(self syntaxColor value).
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	self evaluateModified.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10094	syntaxElementSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10095
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10098	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10099	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10100	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10101	self recolor.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10104	syntaxEmphasisSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10105
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10106	\|em\|
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	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10109	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10110	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10111	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10112	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10113
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10114	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10115	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10116	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10117	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10118	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10119	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10120	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121	^ self.
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	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10125	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10126	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10127	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10128	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10129	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10130	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10131
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10132	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10133	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10134
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10135	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10136
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10137	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10138	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10139	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10140
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10141	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10142	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10143	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10144	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10145	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10146
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10147	initializeEmphasisDictionary
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10148
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10149	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10150	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10151	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10152	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10153	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10154	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10155	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10156	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10157	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10158	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10159	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10160	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	10161	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	10162	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10163	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10164	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	10165	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	10166	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10167	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10168	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	10169	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	10170	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10171	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10172	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	10173	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	10174	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10175	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10176	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10177	]
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	]
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	].
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10185	release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10186
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10187	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10188	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10189	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10190	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10191	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10192
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10193	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10196
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10197	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10198
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10199	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10200	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10201	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10202	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10203	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10204	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10205	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10206	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10207	^ true
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	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10210	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10211	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10212	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10213	^ false
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10216	syntaxColorSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10217
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10218	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10221	syntaxColorSelectorForElement:aSyntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10222
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10223	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10224	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10225
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10226	syntaxEmphasisSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10227
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10228	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10229	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10230
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10231	syntaxEmphasisSelectorForElement:anEmElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10232
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10233	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10234	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10235
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10236	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10237
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10238	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10239	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10240	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10241
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10242	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10243	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10244
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10245	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10246	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10247	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10248	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10249	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10250
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10251	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10252
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10253	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10254	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10255	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	10256	@@@@@@@@@@@@A XFA @@@@@@@@@@@@@@@@@@@@@@A!!HRCPX@@@@@@@@@@@@@@@@@@@@@A!!H.KP4MA @@@@@@@@@@@@@@@@@@@@XRPB<#H0L@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10257	@@@@@@@FD$@/H2LC@@@@@@@@@@@@@@@@@@@@A!!H6LRH"@P@@@@@@@@@@@@@@@@@@@@XFC#LKB0D@@@@@@@@@@@@@@@@@@@@@@@XZ@PD@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10258	@@@@@@@FF DA@@@@@@@@@@@@@@@@@@@@@@@@A!!(A@P@@@@@@@@@@@@@@@@@@@@\GA3@ZDQDAAPT@@@@@@@@@@@@@@@\;QDP''EQ@PE@$IAP@@@@@@@@@@@@@G
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10259	N4QDI1TPDAPIBPT@@@@@@@@@@@@@A31CP3(UJ"( B (D@@@@@@@@@@@@@@\>Q4\8IR0,J1@PA@@@@@@@@@@@@@@GO$]GNBT,KB,PD@P@@@@@@@@@@@@@A35H
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10260	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	10261	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	10262	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10263
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10264	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10266	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10267	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10268	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10270	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10271	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10273	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10274	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10275	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10276	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10277	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10279	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10281	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10282	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10283	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10284	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10285	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10286	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10287	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10288	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10289	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10290	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10291	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10292	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10293	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10294	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10295	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10296	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10297	#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	10298	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10299	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10300	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10301	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10302	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10303	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10304	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10305	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10306	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10307	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10308	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10309	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10310	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10311	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10312	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10313	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10314	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10315	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10316	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10317	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10318	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10319	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10320	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10321	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10322	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10323	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10324	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10325	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10326	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10327	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10328	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10329	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10330	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10331	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10332	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10333	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10334	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10335	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10336	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10337	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10338	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10339	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10340	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10341	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10342	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10343	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10344	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10345	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10346	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10347	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10348	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10349	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10350	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10351
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10352	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10353	#extent: #(#Point 551 133)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10354	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10355	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10356	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10357	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10358	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10359	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10360	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10361	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10362	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10363	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10364	#label: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10365	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10366	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10367	#model: #updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10368	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10369	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10370	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10371	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10372	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10373	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10374	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10375	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10376	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10377	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10378	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10379	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10380	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10381	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10382	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10385	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10386	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10387	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10388	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10389	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10390	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10391	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10392	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10393	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10394	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10395
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10396	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10397	#extent: #(#Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10398	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10399	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10400
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10401	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10402	#extent: #(#Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10403	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10404	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10406	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10407	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10408	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10409
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10410	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10411	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10412	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10414	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10415
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10416	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10417
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10418	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10419	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10420	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10421	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10422	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10423	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10424	Class updateChanges:self updChanges value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10425	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10426
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10427	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10429	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10430	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10431
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10432	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10433	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10434	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10435	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10436	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10437	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10438	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10439	self updChanges value:Class updatingChanges.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10440	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10441	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10443	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10444
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10445	changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10446
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10447	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10448	changeFileName := ObjectMemory nameForChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10449	changeFileName onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10450	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10451	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10452	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10453
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10454	classInfos
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10456	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10457	classInfos := Object infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10458	classInfos onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10459	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10460	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10461	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10463	displayErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10465	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10466	displayErrors := DeviceWorkstation errorPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10467	displayErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10468	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10469	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10470	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10471
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10472	logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10473
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10474	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10475	logDoits := Smalltalk logDoits asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10476	logDoits onChangeSend:#evaluateModified to:self
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	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10479	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10480
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10481	updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10482
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10483	updChanges isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10484	updChanges := Class updatingChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10485	updChanges onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10486	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10487	^ updChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10488	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10489
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10490	vmErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10492	vmErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10493	vmErrors := ObjectMemory debugPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10494	vmErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10495	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10496	^ vmErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10497	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10499	vmInfo
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10501	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10502	vmInfo := ObjectMemory infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10503	vmInfo onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10504	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10505	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10506	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10508	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10510	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10511
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10512	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10513	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10514	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10515
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10516	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10517
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10518	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10519
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10520	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10521	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10522	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10523	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10524	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10525	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10526	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10527	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10528
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10529	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10530
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10531	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10532	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10533	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10534
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10535	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10536	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10537
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10538	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10539	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10540	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10541	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10542	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10543
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10544	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10545
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10546	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10547	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10548	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	10549	@ 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	10550	@@@@@@@D@ XFA @@@@@@@@@@@@HB@@@@@@@@@@HC@ XFA @@@@@@@@@B@ @@@@@@@@@@@@\BCPXF@@@@@@@@@ H@@@@RB @@@@@@@ <MA @@@@@@@@HB@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10551	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	10552	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	10553	@@@@@@@@@@@@D 4@@@HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10554	@ 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	10555	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10556
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10557	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10559	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10560	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10561	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10563	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10564	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10567	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10568	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10569	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10570	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10572	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10574	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10575	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10576	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10577	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10578	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10579	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10580	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10581	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10582	#max: #(#Point 1024 768)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10583	#bounds: #(#Rectangle 16 42 511 513)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10584	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10585	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10586	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10587	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10588	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10589	#name: 'VerticalPanel2'
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10590	#layout: #(#LayoutFrame 0 0 0 0 358 0 234 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10591	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10592	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10593	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10594	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10595	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10596	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10597	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10598	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10599	#label: 'Use the New Changes Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10600	#name: 'ChangesBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10601	#model: #useNewChangesBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10602	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10603	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10604	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10605	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10606	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10607	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10608	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10609	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10610	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10611	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10612	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10613	#label: 'Use the New VersionDiff Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10614	#name: 'VersionDiffBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10615	#model: #useNewVersionDiffBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10616	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10617	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10618	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10619	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10620	#label: 'Use the New File Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10621	#name: 'NewFileBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10622	#model: #useNewFileBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10623	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10624	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10625	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10626	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10627	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10628	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10629	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10630	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10631	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10632	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10633	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10634	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10635	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10636	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10637	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10638	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10639	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10640	#(#CheckBoxSpec
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10641	#label: 'Use the New Process Monitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10642	#name: 'UseNewProcessMonitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10643	#model: #useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10644	#translateLabel: true
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10645	#extent: #(#Point 489 25)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10646	)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10647	#(#CheckBoxSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10648	#label: 'Use Hierarchical Inspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10649	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10650	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10651	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10652	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10653	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10654	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10655	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10656	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10657	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10658	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10659	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10660	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10661	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10662	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10663	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10664	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10665	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10666	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10667	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10668	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10669	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10670	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10671	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10672	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10673	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10674	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10675	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10676	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10677	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10678	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10679	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10680	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10681	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10682	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10683	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10684	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10685
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10686	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10687	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10688	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10689	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10691	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10692	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10693	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10694	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10696	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10697	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10698	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10699
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10700	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10701
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10702	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10703
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10704	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10705
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10706	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10707	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10708	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10709	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10710	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10711	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10712	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10713	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10714	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10715	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10716	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10717	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10718	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10719	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10720	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10721	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10722	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10723	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10724	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10725	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10726	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10727	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10728	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10729	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10730	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10731	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10732	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10733	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10734	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10735	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10736	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10737	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10738	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10739	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10740	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10741	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10742	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10743	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10744	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10745	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10746	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10747	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10748	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10749
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10750	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10751
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10752	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10753	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10754
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10755	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10756	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10757	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10758	self transcriptBufferSize value:Transcript current lineLimit.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10759	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10760	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10761	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10762	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10763	self useNewVersionDiffBrowser
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10764	value:currentUserPrefs useNewVersionDiffBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10765	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10766	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10767	self useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10768	value:currentUserPrefs useNewSettingsApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10769	self modifiedChannel value:false
4286 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	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10774	showClockInLauncher
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10776	showClockInLauncher isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10777	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10778	showClockInLauncher onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10779	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10780	^ showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10781	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10783	transcriptBufferSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10785	transcriptBufferSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10786	transcriptBufferSize := Transcript current lineLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10787	transcriptBufferSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10788	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10789	^ transcriptBufferSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10790	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10792	useNewChangesBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10794	useNewChangesBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10795	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10796	useNewChangesBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10797	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10798	^ useNewChangesBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10799	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10801	useNewFileBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10803	useNewFileBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10804	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10805	useNewFileBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10806	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10807	^ useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10808	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10809
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10810	useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10811
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10812	useNewFileDialog isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10813	useNewFileDialog := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10814	useNewFileDialog onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10815	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10816	^ useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10817	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10818
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10819	useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10821	useNewInspector isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10822	useNewInspector := currentUserPrefs useNewInspector asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10823	useNewInspector onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10824	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10825	^ useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10826	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10827
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10828	useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10829
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10830	useNewSettingsApplication isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10831	useNewSettingsApplication := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10832	useNewSettingsApplication onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10833	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10834	^ useNewSettingsApplication.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10835	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10836
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10837	useNewSystemBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10839	useNewSystemBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10840	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10841	useNewSystemBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10842	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10843	^ useNewSystemBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10844	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10845
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10846	useNewVersionDiffBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10848	useNewVersionDiffBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10849	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10850	useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10851	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10852	^ useNewVersionDiffBrowser.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10853	!
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10854
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10855	useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10856
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10857	useProcessMonitorV2 isNil ifTrue:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10858	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10859	useProcessMonitorV2 onChangeSend:#evaluateModified to:self
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10860	].
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10861	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10862	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10863
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10864	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10865
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10866	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10867
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10868	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10869	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10870	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10871	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10872	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10873	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10874	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10875	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10876	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10877	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10878	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10879
4226 44e2f83cc526 initial checkin penk parents: diff changeset	10880	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	10881
44e2f83cc526 initial checkin penk parents: diff changeset	10882	version
4851 359312a95673 * empty log message * penk parents: 4847 diff changeset	10883	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.59 2003-04-29 10:07:20 penk Exp $'
359312a95673 * empty log message * penk parents: 4847 diff changeset	10884	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 07 May 2003 16:52:53 +0200
changeset 4867	269d62a1ed27
parent 4851	359312a95673
child 4873	3ffb8a8812ec
permissions	-rw-r--r--