hg/stx-libtool: AbstractSettingsApplication.st@40c7fa2ca3e5 (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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	5	classVariableNames:''
44e2f83cc526 initial checkin penk parents: diff changeset	6	poolDictionaries:''
44e2f83cc526 initial checkin penk parents: diff changeset	7	category:'Interface-Smalltalk'
44e2f83cc526 initial checkin penk parents: diff changeset	8	!
44e2f83cc526 initial checkin penk parents: diff changeset	9
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11	instanceVariableNames:'allowQualifiedNames warnDollar warnOldStyle fullDebugSupport
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12	warnCommonMistakes warnUnderscore keepSource constantFolding
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13	warnCompatibility constantFoldingOptions warnings warnSTX
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	14	allowDollar allowReservedWordsAsSelectors immutableArrays
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16	warnUnusedVars allowSqueakExtensions justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	17	canLoadBinaries constantFoldingSelection enableUnderscore
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18	enableDollar'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	22	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	23
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	24	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	25	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	26	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	27	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	28	privateIn:AbstractSettingsApplication
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	32	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	33	clipEncodingListSelection sizeX monitorList ditherList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	34	clipEncodingList ditherListSelection deepIcons monitorSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	35	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	36	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	37	screenDepthVisualLabelHolder'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	38	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	39	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	40	privateIn:AbstractSettingsApplication
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	44	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	45	searchDialogIsModal startTextDragWithControl'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	46	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	47	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	48	privateIn:AbstractSettingsApplication
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	52	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	53	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	54	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	55	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	56	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	57	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	58	privateIn:AbstractSettingsApplication
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	62	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	63	searchDialogIsModal startTextDragWithControl catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	64	fullHistoryUpdate historyLines keepSourceSelection keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	65	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	66	classVariableNames:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	67	poolDictionaries:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	68	privateIn:AbstractSettingsApplication
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	71	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	72	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	73	labelTextHolder functionKeyList rawKeyList mappings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	74	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	75	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	76	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	77	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	78
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	79	AbstractSettingsApplication subclass:#LanguageSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	80	instanceVariableNames:'languageHolder languageList listOfLanguages translatedLanguages
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	81	noticeLabelHolder currentLanguageChannel currentLanguageLabel'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	82	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	83	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	84	privateIn:AbstractSettingsApplication
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:#MemorySettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	88	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	89	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	90	igcFreeAmount stackLimit supportsJustInTimeCompilation'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	91	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	92	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	93	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	96	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	97	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	98	windowMigrationPassword windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	99	enablePasswordCheck'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	100	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	101	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	102	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	103	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	104
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	105	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	106	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	107	activateOnClick shadows opaqueVariablePanelResize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	108	formatHostNameinWindowLabels opaqueTableColumnResize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	109	hostNameInLabelHolder showAccelerators newWindowLabelFormat
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	110	formatHostNameWindowLabel'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	111	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	112	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	113	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	114	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	115
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	116	AbstractSettingsApplication subclass:#OsiSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	117	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	118	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	119	osiCMISEMessageLogging osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	120	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	121	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	122	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	123	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	124	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	125
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	126	AbstractSettingsApplication subclass:#PrinterSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	127	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	128	landscape pageFormatList pageFormat unitList leftMargin
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	129	possiblePrinters printerType printerTypeSelection
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	130	printCommandList commandList printCommand enableFormat
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	131	enablelandscape enableMargins enableColorBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	132	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	133	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	134	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	135	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	136
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	137	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	138	instanceVariableNames:'dynamicPrios preemptive'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	139	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	140	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	141	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	142	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	143
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	144	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	145	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	146	rDoitErrorDebugging rDoitServerPort'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	147	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	148	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	149	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	150	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	151
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	152	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	153	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	154	stcDefines stcLibraries stcOptions stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	155	stcCompilationSelection stcCompilationList'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	156	classVariableNames:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	157	poolDictionaries:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	158	privateIn:AbstractSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	159	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	160
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	161	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	162	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	163	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	164	blockArgumentsOnNewLine spaceAfterReturnToken
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	165	spaceAroundTemporaries oldUserPreferences reformatLocked'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	166	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	167	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	168	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	169	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	170
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	171	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	172	instanceVariableNames:'sourceCacheDir useManager condenseSourceCache
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	173	syntaxColorConfiguration setupSourceCodeManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	174	checkClassesWhenCheckingIn formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	175	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	176	manager repository listOfModules cvsRootPrototypeList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	177	addPerModuleRoot removeEnabled perModuleRootModule acceptChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	178	removePerModuleRoot perModuleRoot cvsRootHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	179	selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	180	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	181	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	182	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	183	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	185	AbstractSettingsApplication subclass:#StyleSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	186	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	187	styleDirectoryContents infoLabelHolder noticeLabelHolder'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	188	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	189	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	190	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	191	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	192
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	193	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	194	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	195	fullSelectorCheck syntaxColoring oldUserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	196	syntaxFontSelector syntaxFonts syntaxElementList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	197	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	198	emphasisDictionary resetListDictionary'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	199	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	200	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	201	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	202	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	203
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	204	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	205	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	206	changeFileName'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	207	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	208	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	209	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	210	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	211
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	212	AbstractSettingsApplication subclass:#ToolsSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	213	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	214	showClockInLauncher useNewChangesBrowser useNewFileBrowser
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	215	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	216	useProcessMonitorV2'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	217	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	218	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	219	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	220	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	221
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	222	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	223
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	224	windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	225
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	226	self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	227	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	228
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	229	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	230
68504047f229 * empty log message * penk parents: 4286 diff changeset	231	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	232
68504047f229 * empty log message * penk parents: 4286 diff changeset	233	^ AbstractLauncherApplication classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	234	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	235
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	236	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	237
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	238	evaluateModified
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	239
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	240	self modifiedChannel value:(self hasUnsavedChanges).
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	241	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	242
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	243	saveRequest
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	244	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	245
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	246	(self hasUnsavedChanges) ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	247	result := self confirmWithCancel:(resources
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	248	string:'Save changed ' , settingsString , ' ?').
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	249	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	250	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	251	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	252	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	253	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	254	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	255	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	256	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	257	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	258	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	259	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	260
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	261	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	262	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	263	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	264	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	265	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	266	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	267
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	268	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	269
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	270	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	271
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	272	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	273	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	274	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	275	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	276	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	277
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	278	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	279
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	280	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	281	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	282	resources := self class classResources.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	283	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	284	settingsString := (UISpecification from:(self class windowSpec)) window label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	285	self readSettings.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	286	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	287
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	288	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	289
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	290	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	291
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	292	self subclassResponsibility.
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
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	295	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	296
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	297	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	298	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	299
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	300	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	301
289972d3e455 * empty log message * penk parents: 4319 diff changeset	302	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	303	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	304	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	305	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	306
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	307	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	308	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	309	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	310
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	311	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	312
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	313	self basicSaveSettings.
4657 a59ba78d52d2 reset UserPrefernces instance on saveSettings because Userpreferences current may change penk parents: 4656 diff changeset	314	currentUserPrefs := UserPreferences current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	315	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	316	! !
44e2f83cc526 initial checkin penk parents: diff changeset	317
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	318	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	319
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	320	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	321
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	322	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	323	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	324
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	325	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	326
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	327	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	328	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	329
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	330	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	331
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	332	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	333	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	334	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	335
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	336	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	337	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	338
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	339	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	340	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	341	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	342	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	343	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	344
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	345	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	346
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	347	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	348	constantNamed:#'AbstractSettingsApplication::CompilerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	349	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	350	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	351	@@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	352	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	353	@@@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	354	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	355	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	356	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	357
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	358	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	359
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	360	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	361	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	362	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	364	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	365	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	367	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	368	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	369	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	370	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	371	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	373	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	375	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	376	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	377	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	378	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	379	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	380	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	381	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	382	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	383	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	384	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	385	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	386	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	387	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	388	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	389	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	390	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	391	#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	392	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	393	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	394	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	395	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	396	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	397	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	398	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	399	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	400	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	401	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	402	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	403	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	404	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	405	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	406	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	407	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	408	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	409	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	410	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	411	#label: 'Allow Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	412	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	413	#model: #allowUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	414	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	415	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	416	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	417	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	418	#label: 'Allow Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	419	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	420	#model: #allowDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	421	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	422	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	423	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	424	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	425	#label: 'Allow VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	426	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	427	#model: #allowQualifiedNames
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	428	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	429	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	430	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	431	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	432	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	433	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	434	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	436	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	437	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	438	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	439	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	440	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	443	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	444	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	445	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	446	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	#model: #allowOldStyleAssignment
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	450	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	451	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	452	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	453	#label: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	480	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	484	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#model: #warnUnderscore
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	513	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	514	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	515	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	516	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	524	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	525	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	526	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	527	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	528	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	529	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	530	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	531	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	533	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	534	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	535	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	536	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	537	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	538	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	539	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	540	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	541	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	542
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	543	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	544	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	545	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	546
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	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	549	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	550	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	551	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	552	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	553	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	554	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	555	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	556	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	557	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	558	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	559	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	560	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	561	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	562	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	563	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	564	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	565	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	566	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	567	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	568	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	569	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	570	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	571	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	572	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	573	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	574	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	575	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	576	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	577	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	578	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	579	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	580	#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	581	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	582	#adjust: #right
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	583	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	584	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	585	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	586	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	587	#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	588	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	589	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	590	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	591	#useIndex: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	592	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	593	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	594
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	595	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	596	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	597	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	598	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	599
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	600	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	601	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	602	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	604	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	605	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	606	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	607
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	608	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	609
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	610	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	612	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	613	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	614	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	615	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	616	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	617	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	618	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	619	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	620	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	621	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	622	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	623	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	624	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	625	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	626	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	628	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	629	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	630	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	631	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	632	Compiler lineNumberInfo:true
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	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	636
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	637	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	638	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	639	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	640	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	641	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	642	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	643	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	644	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	645	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	646	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	647
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	648	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	649
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	650	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	651	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	652
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	653	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	654	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	655	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	656	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	657	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	658	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	659	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	660	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	661	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	662	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	663	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	664	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	665	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	666	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	667	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	668	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	669	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	670	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	671	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	672	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	673	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	674	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	675	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	676	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	677	self justInTimeCompilation value:false
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	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	680	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	681	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	682	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	683	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	684	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	685	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	686	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	687	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	688	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	689	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	691	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	693	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	694	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	695
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	696	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	698	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	699
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	700	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	701	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	702	allowDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	703	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	704	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	705	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	706	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	707
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	708	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	710	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	711	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	712	allowDolphinExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	713	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	714	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	715	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	716
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	717	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	718
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	719	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	720	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	721	allowOldStyleAssignment onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	722	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	723	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	724	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	725
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	726	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	728	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	729	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	730	allowQualifiedNames onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739	allowReservedWordsAsSelectors onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748	allowSqueakExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	allowUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	771	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	772
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	773	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	781	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	782	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784	constantFoldingSelection := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785	constantFoldingSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	790	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	792	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	fullDebugSupport onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833	immutableArrays onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	840	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	841	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	842	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846	justInTimeCompilation onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	warnCommonMistakes onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857	^ warnCommonMistakes.
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	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	warnCompatibility onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	^ warnCompatibility.
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	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873	warnDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	warnOldStyle onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	warnSTX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	warnUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	warnUnusedVars onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919	warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920	warnings onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	925	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	changedObject == self warnings ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	self warnings value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	950	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955	(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	973	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	974	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	977	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	981
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	982	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	983
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	984	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	985	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	986
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	987	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	988	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	989
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	990	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	991
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	992	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	993	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	994	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	995
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	996	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	997	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	998
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	999	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1000	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1001	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1002	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1003	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1004
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1005	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1006
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1007	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1008	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1009	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1010	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1011	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1012	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1013	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1014	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1015	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1016	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1017	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1018	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1019	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1020	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1021	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1022	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1023	#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	1024	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1025	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1026	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1027	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1028	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1029	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1030	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032	#name: 'VerticalPanel5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1034	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1035	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1039	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1040	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1044	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1045	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1046	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1049	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1050	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1051	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1052	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1053
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1054	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1055	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1056	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1057	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1058	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1059	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1061	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1062	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1068	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1069	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1070
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1071	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1078	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1079	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1080	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1081	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1082	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1083	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1084	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1085	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1086	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1087
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1088	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1090	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1091	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1093	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094	#extent: #(#Point 600 320)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1096	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1098	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1099	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1100	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1101
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1102	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1103	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1104	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1105
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1108	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1109
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1110	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1111	self showErrorNotifier value ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1112	Exception emergencyHandler:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1113	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1114	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1115	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1116	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1117	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1118
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119	help
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	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1122	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1125	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1126	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1127	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1128	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1129	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1130	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1131	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1132	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1133
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1134	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1135
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1136	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1137
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1138	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1139	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1140	allowSendMailFromDebugger onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1141	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1142	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1143	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1144
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1145	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1146
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1147	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1148	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1149	showErrorNotifier onChangeSend:#evaluateModified to:self
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	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1152	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1153
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1154	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1155
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1156	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1157	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1158	showVerboseStack onChangeSend:#evaluateModified to:self
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	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1161	! !
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	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'change & update'!
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	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1166	"Invoked when an object that I depend upon sends a change notification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1167
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1168	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1169
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1170	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171	"/ ^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172	"/ ].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1175	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1176
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1177	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1178
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1179	hasUnsavedChanges
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	^ (
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1182	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1183	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1184	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1185	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1186	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1187	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1188
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1189	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1190
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1191	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1192
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1193	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1194	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1196	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1197
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1198	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1199	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1201	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1202
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1203	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1204	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1206	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1208	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1209	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1211	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1212
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1221	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1222
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1223	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1224	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1225	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1226
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1227	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1228	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1229
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1230	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1231	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1232	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1233	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1234	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1235
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1236	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1237
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1238	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1239	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1240	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	1241	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1242	@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	1243	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	1244	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	1245	ER ''I2\''EQTUEQTUEP@@@@@@@@@@@@@(I2\''I1TU@@@@@@@@@@@@@@@@JB\''I2\''I2\''I2\U@@@@@@@@@@@@@B ''I2\''I2\''I2\''EP@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	1247	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1248
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1249	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1250
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1251	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1252	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1253	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1254
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1255	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1256	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1258	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1259	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1260	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1261	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1262	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1264	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1266	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1267	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1268	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1269	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1270	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1271	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1272	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1274	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1275	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1281	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1282	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1283	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1284	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#label: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#name: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	#model: #sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1319	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	#label: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1329	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1337	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1350	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	#labelChannel: #useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	#label: 'Use Fix Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1442	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1443
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1444	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1445
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1446	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1447	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1448	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1449	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1450	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1451	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1452	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1453	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1454	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1455	].
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	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1458	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1459	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1460	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1461	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1462	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1463	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1464	screen releaseFixGrayColors
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	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1467	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1468	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1469	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1470
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1471	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1472	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1473	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1474	].
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	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1477	View defaultStyle:(View defaultStyle).
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 clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1481	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1482
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1483	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1484
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1485	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1486	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1487	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1488
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1489	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1490	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1491	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1492	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1493	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1494	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1495	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1496	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1497	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1498	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1499	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1500	self clipEncodingListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1501	value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1502	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1503	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1504	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1510	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1511	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1512	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1515	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1516	^ clipEncodingList.
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	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1521	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1522	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1523	clipEncodingListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1524	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1525	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1526	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531	deepIcons := screen supportsDeepIcons asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	deepIcons onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1548	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553	ditherListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555	^ ditherListSelection.
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	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	isColorMonitor := screen hasColors asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	isColorMonitor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587	monitorSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	monitorSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	sizeX changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	sizeX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	sizeY changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	sizeY onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	useFixGrayPalette := screen fixGrayColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	useFixGrayPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	useFixPalette := screen fixColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	useFixPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	visualIsPseudoColor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	self monitorSelection value:idx
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	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1720
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1722
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1723	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1729	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1732	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1746	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1747
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1755	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1756	^ super postOpenAsSubcanvasWith:aBuilder
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	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1785	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1786
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1787	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1788	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1789	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1790
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1791	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1792	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1793
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1794	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1795	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1796	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1797	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1798	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1799
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1800	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1801
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1802	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1803	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1804	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	1805	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1806	@@(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	1807	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	1808	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	1809	@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	1810	@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	1811	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1812
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1813	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1815	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1816	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1817	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1819	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1820	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1821
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1822	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1823	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1824	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1825	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1826	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1833	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1834	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1835	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1836	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1839	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1846	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	#verticalLayout: #top
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	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1901	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910	)
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	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1915	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1916
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1917	UserPreferences current st80EditMode:(self st80EditingMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1918	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1919	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1920	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1921	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1922	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1923	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1924	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1925	UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1926	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1927	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1928
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1929	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1930
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1932	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1933	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1934
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1935	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1936	self st80EditingMode value:UserPreferences current st80EditMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1937	self st80DoubleClickSelectMode value:TextView st80SelectMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1938	self tabsIs4
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1939	value:(ListView userDefaultTabPositions = ListView tab4Positions).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1940	self searchDialogIsModal
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1941	value:UserPreferences current searchDialogIsModal.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1942	self startTextDragWithControl
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1943	value:UserPreferences current startTextDragWithControl.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1944	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1945	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1947	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1948
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1949	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1951	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1952	searchDialogIsModal := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1953	searchDialogIsModal onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1955	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1956	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1958	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1959
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1961	st80DoubleClickSelectMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962	st80DoubleClickSelectMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964	^ st80DoubleClickSelectMode.
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	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	st80EditingMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971	st80EditingMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973	^ st80EditingMode.
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	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	startTextDragWithControl := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980	startTextDragWithControl onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982	^ startTextDragWithControl.
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	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	tabsIs4 := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989	tabsIs4 onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	^ tabsIs4.
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	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	"/ ^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	"/ ].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	super update:something with:aParameter from:changedObject
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	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	^ super postOpenWith:aBuilder
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	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	)
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	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2054	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2055
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2056	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2057	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2058	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2059
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2060	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2061	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2065	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2066	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2067	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2068
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2069	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2070
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2071	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2072	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2073	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	2074	@@@@@@@@@@@@@@@@@@@@@!!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	2075	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	2076	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	2077	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2079	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2080	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2081	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2082
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2083	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2084	the ImageEditor may not be able to read the specification."
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	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2088	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2089	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2090	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2091
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2092	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2093
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2094	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2095	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2096	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	2097	@@@@@@@@@@@@@@@@@@@@@!!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	2098	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	2099	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	2100	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2101
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2104	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2105
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2106	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2107
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2108	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2109	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2110	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2111	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2112	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2114	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2116	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2117	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2118	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2120	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2121	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2123	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2124	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2125	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2126	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2127	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2134	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2135	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2138	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2139	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2140	#bounds: #(#Rectangle 16 42 512 654)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2141	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2142	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2143	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2144	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2145	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2146	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2147	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2148	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2149	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2150	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2151	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2152	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2153	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2154	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2155	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2156	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2157	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2158	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2159	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2160	#(#LabelSpec
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2161	#label: 'All (Others)'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2162	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2163	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2164	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2165	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2166	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2167	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2168	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2169	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2170	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2171	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2172	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2173	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2174	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2175	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2176	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2177	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2178	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2179	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2180	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2181	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2182	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2183	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2184	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2185	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2186	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2187	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2188	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2189
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2191	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2192	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2193	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2194	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2195	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2196	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2197	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2199	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2200	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2201	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2202	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2203	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2206	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2207	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2208	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2209	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2210	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2211	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2212	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2213	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2216	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2217	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2218	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2241	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2244	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2245	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2246	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2250	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2253	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2254	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2255	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2256	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2257	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2258	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2260	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2261	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2262	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2264	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2266	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2267	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2268	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2278	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2279	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2280	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2282	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2283	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2284	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2285	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2297	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2302	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2303
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2306	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2307	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2312	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2313	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2314	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2315	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2320	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2321	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2322	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2323	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2324	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2355	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2364	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2371	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2372	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2373	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2374	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2375	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2376	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2377	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2378	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2379
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2380	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2381	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2382	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2383	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2385	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2386	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2387	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2388
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2389	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2390	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2391	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2392
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2393	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2395	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2396
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2397	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2398	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2399	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2400	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2401	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2402
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2403	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2404
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2405	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2406
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2407	\| master requestor\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2408
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2409	master := self masterApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2410	master notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2411	requestor := master requestor.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2412	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2413
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2414	Label defaultFont:self labelDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2415	Button defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2416	Toggle defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2417	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2418	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2419	MenuView defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2420	PullDownMenu defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2421	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2422
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2423	changeAllFont
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2427	fontFromUserInitial:(self allOfThem value)
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 allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2432	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2433	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2434	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2435	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2436	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2437	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2445	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2449	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2454	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2461	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2462	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2468	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2469	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2470	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2471	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2472	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2473	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2481	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2482	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2483	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2484	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2485	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2489	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2494	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2496	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2497	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2507	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2514	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	^ allOfThem
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	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544	^ buttonDef
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	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2550	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	^ buttonsFontLabelHolder.
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	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2556	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	^ labelDef
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	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2568	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	^ labelsFontLabelHolder.
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	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	^ listDef
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	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2586	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	^ listsFontLabelHolder.
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	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	^ menuDef
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	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2604	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	^ menusFontLabelHolder.
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	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2619	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2621	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2622	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2623	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2624	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2627	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2629	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2630	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2631
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2632	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2633
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2634	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2635	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2636	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2637	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2638	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2639	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2640	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2641	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2642	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2643	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2644	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2645	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2646	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2647	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2648	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2649	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2651	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2652	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2653	^ self.
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	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2656	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2657	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2658	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2659	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2660	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2661	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2662
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2663	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2664	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2665	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2666	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2667	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2668	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2669	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2670	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2671
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2672	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2673	\| f label\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2674
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2675	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2676
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2677	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2678	label := f isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2679	''
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2680	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2681	f userFriendlyName
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2682	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2683	fontNameHolder value:label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2684	self evaluateModified.
4286 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	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2719	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2720	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2721	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2722	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2723	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2725	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2726
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2727	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2728
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2730	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2734	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2735
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2736	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2737
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2738	keepSourceOptions
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	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2741	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2742
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2743	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2744
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2745	^ #('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	2746	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2747
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2748	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2749
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2750	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2751	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2752	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2755	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2756
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2757	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2758	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2759	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2760	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2761	"
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	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2764
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2765	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2766	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2767	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	2768	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2769	@@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	2770	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	2771	@@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	2772	@@@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	2773	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	2774	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2775
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2776	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2777
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2778	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2779	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2780	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2783	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2784
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2786	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2787	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2788	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2789	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2790
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2791	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2792
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2793	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2794	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2795	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2796	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2797	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2798	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2799	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2800	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2801	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	#bounds: #(#Rectangle 16 42 616 362)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2803	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2804	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2805	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2806	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2807	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2808	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809	#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	2810	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2812	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2813	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2814	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2817	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2819	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2820	#model: #catchMethodRedefs
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2825	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2826	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2827	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2828	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2829	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2830	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2831	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2832	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2833	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2834	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2835	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2836	#extent: #(#Point 600 25)
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2839	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2841	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2842	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2843	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2844	#extent: #(#Point 600 25)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2847	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2848	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2849	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2850	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2851	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2852	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2853	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2854	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2855	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2857	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2858	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2861	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2862	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2863	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2864	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2865	#adjust: #right
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	#extent: #(#Point 600 30)
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	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2873	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2874	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2875	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2876	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2877	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2878	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2879	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2880	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2881	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2882	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2883	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2884	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2885
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2886	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2887	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2888	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2889
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2890	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2891	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2892	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2893
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2894	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
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	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2897
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2898	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2899	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2900	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2901	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2902	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2903	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2904	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2905	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2906	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2907	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2908	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2909	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2910	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2911
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2912	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2913
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2914	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2915	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2916	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2917
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2918	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2919	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2920	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2921	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2922	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2923	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2924	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2925	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2927	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2928	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2929	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2930	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2932	self fullHistoryUpdate value:false
4387 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	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2935	self modifiedChannel value:false
4387 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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2938	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2939
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2941
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2942	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2943	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2944	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2945	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2946	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2948	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2949
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2950	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	catchClassRedefs 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	^ catchClassRedefs.
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	catchMethodRedefs
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	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2960	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2961	catchMethodRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2964	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2965
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2966	fullHistoryUpdate
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	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2970	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2971	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2973	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2974	fullHistoryUpdate onChangeSend:#evaluateModified to:self.
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	^ fullHistoryUpdate.
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	hasHistoryManager
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	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2982	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984	historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2986	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2987	historyLines := self hasHistoryManager asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2988	historyLines onChangeSend:#evaluateModified to:self.
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	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2995	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2996	keepSource := (resources array:(self class keepSourceStrings)) asList.
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	^ keepSource.
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	keepSourceSelection
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	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3005	keepSourceSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3006	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3007	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3009
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3014	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3015	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3016	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3017	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3018	loadBinaries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3019	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3020	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3021	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3022
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3023	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'change & update'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3024
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3025	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3026	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3027
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3028	"stub code automatically generated - please change as required"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3029
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3030	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3031	"/ ^ self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3032	"/ ].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3033
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3034	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3035	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3036
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3037	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3038
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3039	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3040
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3041	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3042	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3043	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3044	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3045	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3046	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3047	((self hasHistoryManager) ~= self historyLines value)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3048	]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3049	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3050	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3051
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3052	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3053
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3054	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3055	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3056	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3057
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3058	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3059	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3060
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3061	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3062	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3063	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3064	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3065	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3066
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3067	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3068
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3069	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3070	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3071	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	3072	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3073	@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@@@@@@@HBA@PD@@@@@@@@@@@@@@@@@@@@@@HBA@PDA@P@@@@@@@@@@@@@@@@@@@HBA@PD@@@DA@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3074	@@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	3075	@ HDA@PDA@LC@0@@@@@@@@@@@@@@@@HB@ PDA@LC@0@@@@@@@@@@@@@@@@@@@ HBA@LC@0@@@@@@@@@@@@@@@@@@@@@B@ PC@0@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3076	@@HD@0@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3077	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3078	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3079
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3080	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3081
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3082	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3083	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3084	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3086	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3087	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3088
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3089	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3090	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3091	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3092	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3093	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3094
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3095	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3098	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3099	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3100	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3102	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3103	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3104	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3105	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3106	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3107	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3108	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3109	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3110	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3111	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3113	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3114	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3115	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3116	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3117	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3118	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3119	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3120	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3121	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3122	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3123	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3124	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3125	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3126	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3127	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3128	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3129	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3130	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3131	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3132	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3133	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3134	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3135	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3136	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3137	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3138	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3140	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3146	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3147	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3148	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3149	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3150	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3151	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3153	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3154	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3155	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3156	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3160	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3161	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3162	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3163	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3165	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3166	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3168
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3169	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3170	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3171	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3172	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3173	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3174	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3175	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3176	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3177	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3178	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3179	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3180	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3181	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3182
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3183	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3184	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3185	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3186
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3187	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3188
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3189	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3190	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3191
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3192	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3193
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3194	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3195	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3196
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3197	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3198	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3199	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3201	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3202
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3203	functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3204	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3206	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3207	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3208	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3209	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3211	functionKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3212	functionKeyList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3213	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3214	"/ functionKeyList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3215	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3216	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3217	^ functionKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3218	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3220	labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3221	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3223	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3224	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3225	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3226	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3228	labelTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3229	labelTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3230	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3231	"/ labelTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3232	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3233	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3234	^ labelTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3235	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3237	macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3238	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3240	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3241	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3242	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3243	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3244
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3245	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3246	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3247	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3248	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3249	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3250	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3251	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3252	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3253
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3254	rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3255
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3256	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3257	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3258	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3259	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3260	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3261
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3262	selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3264	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3265	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3266	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3267	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3268	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3269	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3271	selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3273	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3274	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3275	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3276	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3277	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3278	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3279
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3280	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3282	changeFunctionKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3283
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3284	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3285	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3286	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3287	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3288
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3289	changeMacroText
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3290
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3291	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3293	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3294	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3295	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3296	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3297	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3298	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3299	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3300	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3301	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3302	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3303	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3304
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3305	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3306	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3307	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3308	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3309	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3310	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3311	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3312	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3313	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3314	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3315	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3316	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3317	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3318	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3319	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3320	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3321	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3322	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3323	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3324
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3325	changeRawKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3326	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3328	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3329	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3330	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3331	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3332	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3333	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3334	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3335	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3336	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3337	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3338
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3339	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3340	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3342	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3343
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3344	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3345	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3346	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3347	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3348	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3349	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3350	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3351	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3352	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3353	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3354	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3356	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3358	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3359	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3360	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3361	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3362	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3364	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3365	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3366	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3367	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3368
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3369	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3371	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3372	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3373	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3375	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3376
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3377	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3378
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3379	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3380
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3381	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3382	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3384	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3385	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3387	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3388
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3389	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3390
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3391	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3392	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3393
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3394	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3395
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3396	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3397	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3398	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3399
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3400	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3401	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3402
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3403	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3404	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3405	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3406	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3407	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3408
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3409	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3410
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3411	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3412	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3413	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	3414	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3415	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	3416	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	3417	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	3418	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	3419	@@@@@@@@@@@@@@@@@@@@@@@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	3420	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3421
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3422	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3424	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3425	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3426	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3427
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3428	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3429	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3431	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3432	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3433	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3434	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3435	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3436
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3437	<resource: #canvas>
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	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3441	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3442	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3443	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3444	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3445	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3446	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3447	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3448	#bounds: #(#Rectangle 16 46 491 717)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3449	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3450	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3451	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3455	#layout: #(#LayoutFrame 2 0.0 105 0 -2 1.0 125 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3456	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3457	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3458	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3460	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3461	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3462	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3463	#name: 'List1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3464	#layout: #(#LayoutFrame 2 0.0 125 0 -2 1.0 -30 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3467	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3472	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3473	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3474	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3487	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3488	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3489	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3490	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3491	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3492	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3493	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3494	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3495	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3496	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3497	#(#HorizontalPanelViewSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3498	#name: 'HorizontalPanel1'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3499	#layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3500	#horizontalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3501	#verticalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3502	#horizontalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3503	#verticalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3504	#component:
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3505	#(#SpecCollection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3506	#collection: #(
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3507	#(#ActionButtonSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3508	#label: 'Reread Language Resources'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3509	#name: 'RereadResourcesButton'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3510	#translateLabel: true
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3511	#model: #rereadResourceFiles
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3512	#extent: #(#Point 190 22)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3513	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3514	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3515
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3516	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3517	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3519
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3520	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	^ languageList
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	requestor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3533	"return the value of the instance variable 'requestor' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3535	\| masterApplication \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3536	masterApplication := self masterApplication.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3537	masterApplication notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3538	^ masterApplication requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540	^ nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3541	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3543	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3544
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3545	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3548	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3550	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3551	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3552	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3553	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3554	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3555	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3556	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3557	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3558	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3559	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3560	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3561	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3562	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3563	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3568	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3569	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3571	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3572	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3573	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3574	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3576	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3577	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3578	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3586	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3587	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3588	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3594	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	3595	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3603	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	answer ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	switch := ( self requestor fontBoxForEncoding:fontPref)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3621	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3624	switch ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	self requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626	self requestor reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3627	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3628	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	self currentLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3633	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3634
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3635	doubleClick:aEntry
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3636
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3637	self saveSettingsIfUnsavedChangesArePresent.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3638	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3639
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3640	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3641
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3642	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3643	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3644
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3645	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3646	self languageHolder value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3647	self currentLanguageChannel value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3648	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3649	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3650
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3651	rereadResourceFiles
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3652	ResourcePack flushCachedResourcePacks.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3653
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3654	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3655	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3656
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3657	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3658	Smalltalk changed:#LanguageTerritory.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3662
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3663	currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3668	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3669	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3670
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3674	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3675	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3676	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3677	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679	languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	languageHolder := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683	languageHolder onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3684	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3718
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3719	listOfLanguages := self class classResources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3723	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3727	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3730	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3731	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3732	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3733	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3734	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3735	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3736	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3737	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3738	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3739	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3740	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3741	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3742	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3743	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3744	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3745	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3746	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3747	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3748	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	3749
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3750	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3751	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3753	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3754
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3755	currentLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3757	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3759	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3760	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3761	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3762	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3763	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3764	^ languageList at:(listOfLanguages indexOf:lang)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3765	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3767	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3769	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3770	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3771
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3772	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3773
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3774	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3775	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3776	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3777
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3778	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3779	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3780
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3781	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3782	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3783	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3784	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3785	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3786
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3787	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3788
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3789	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3790	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3791	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3792	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD\@@@@@@@@@@@@@@@@@@@@@@@ARIT(*IRL]R0@@@@@@@@@@@@@@@@@@M2-VUQ<UD4QV@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3793	@@@@@@AURQ<WI!!<UEQTVS%@@@@@@@@@@@@AXI3=CH!!4QDA!!DJAT[SP@@@@@@@@AXRDQSI1,OC <QE1TRHQ @@@@@@@AUR2XWGQ MCP<OC <QHATEN0@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3794	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	3795	@ 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	3796	E1@@GQYHH"1ET @@@@@@@@@@M0\@B!!$GMTP8S"EO@@@@@@@@@@@@@@@:B@@UET$1H$D/@@@@@@@@@@@@@@@@@C OD14\G$9ST@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3797	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	3798	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3799
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3810	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3811	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3812	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3826	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3831	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3833	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3838	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3839	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3840	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3841	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3842	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3843	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3844	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3845	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3846	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3847	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3849	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3850	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3851	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3852	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3853	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3854	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3855	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3856	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3857	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3858	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3859	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3860	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3861	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3862	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3863	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3864	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3865	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3866	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3867	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3868	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3869	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3870	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3871	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3872	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3873	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3874	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3875	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3876	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3877	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3878	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3879	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3880	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3881	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3882	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3883
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3884	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3885	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3886	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3887	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3888	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3889	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3890	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3891	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3892	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3893	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3894	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3895	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3896	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3897	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3898	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3899	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3900	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3901	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3902	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3903	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3904	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3905	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3906	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3907	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3908	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3909	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3910	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3911	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3912	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3913	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3914	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3915	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3916	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3917	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3918	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3919	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3920	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3921
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3922	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3923	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3924	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3925	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3926	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3927	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3928	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3929	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3930	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3931	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3932	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3933	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3934	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3935	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3936	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3937	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3938	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3939	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3940	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3941	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3942	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3943	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3944	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3945	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3946	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3947	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3948	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3949	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3950	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3951	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3952	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3953	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3954	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3955	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3956	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3957	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3958	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3959
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3960	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3961	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3962	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3963	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3964	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3965	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3966	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3967	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3968	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3969	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3970	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3971	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3972	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3973	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3974	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3975	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3976	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3977	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3978	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3979	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3980	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3981	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3982	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3983	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3984	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3985	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3986	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3987	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3988	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3989	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3990	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3991	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3992	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3993	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3994	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3995	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3996	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3997
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3998	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3999	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4000	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4001	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4002	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4003	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4004	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4005	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4006	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4007	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4008	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4009	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4010	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4011	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4012	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4013	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4014	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4015	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4016	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4017	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4018	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4019	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4020	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4021	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4022	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4023	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4024	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4025	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4026	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4027	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4028	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4029	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4030	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4031	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4032	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4033	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4034	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4035
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4036	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4037	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4039	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4040	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4041	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4042	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4043	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4044	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4045	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4046	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4047	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4048	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4049	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4050	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4051	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4052	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4053	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4054	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4055	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4056	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4057	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4058	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4059	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4060	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4061	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4062	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4063	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4064	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4065	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4066	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4067	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4068	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4069	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4070	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4071	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4072	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4073
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4074	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4075	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4076	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4077	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4078	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4079	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4080	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4081	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4082	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4083	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4084	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4085	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4086	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4087	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4088	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4089	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4090	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4091	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4092	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4093	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4094	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4095	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4096	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4097	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4098	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4099	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4100	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4101	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4102	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4103	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4104	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4105	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4106	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4107	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4108	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4109	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4110	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4111
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4112	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4113	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4114	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4115	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4116	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4117	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4118	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4119	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4120	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4121	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4122	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4123	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4124	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4125	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4126	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4127	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4128	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4129	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4130	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4131	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4132	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4133	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4134	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4135	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4136	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4137	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4138	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4139	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4140	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4141	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4142	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4143	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4144	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4145	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4146	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4147	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4148	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4149
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4150	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4151	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4152	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4153	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4154	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4155	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4156	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4157	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4158	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4159	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4160	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4161	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4162	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4163	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4164	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4165	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4166	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4167	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4168	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4169	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4170	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4171	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4172	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4173	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4174	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4175	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4176	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4177	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4178	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4179	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4180	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4181	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4182	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4183	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4184	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4185	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4186	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4187	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4188
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4189	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4190	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4191	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4192	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4193	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4194	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4195	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4196	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4197	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4198	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4199	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4200	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4201	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4202	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4203	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4204	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4205	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4206	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4207	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4208	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4209	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4210	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4211	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4212	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4213	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4214	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4215	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4216	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4217	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4218	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4219	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4220	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4222	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4223	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4224	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4226	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4227
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4228	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4229	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4230	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4231	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4232	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4233	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4234	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4235	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4236	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4237	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4238	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4239	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4240	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4241	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4242	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4243	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4244	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4245	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4246	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4247	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4248	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4249	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4250	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4251	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4252	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4253	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4254	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4255	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4256	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4257	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4258	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4259	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4260	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4261	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4262	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4263	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4264	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4265
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4266	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4267	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4268	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4269	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4271	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4272	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4273	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4275	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4276	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4277	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4279	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4280
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4281	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4282
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4283	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4284	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4285	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4286	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4287	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4288	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4289	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4290	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4291	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4292	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4293	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4294	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4295
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4296	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4297
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4298	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4299	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4300	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4301
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4302	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4303	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4304	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4305	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4306	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4307	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4308	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4310	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4311	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4312	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4313	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4314	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4315	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4316
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4317	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4318
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4319	codeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4321	codeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4322	codeLimit := ObjectMemory dynamicCodeLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4323	codeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4324	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4325	^ codeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4326	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4328	codeTrigger
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4330	codeTrigger isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4331	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4332	codeTrigger onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4333	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4334	^ codeTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4335	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4336
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4337	compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4338
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4339	compressLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4340	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4341	compressLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4342	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4343	^ compressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4344	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4345
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4346	fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4347
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4348	fastMoreLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4349	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4350	fastMoreLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4351	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4352	^ fastMoreLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4353	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4354
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4355	igcFreeAmount
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4357	igcFreeAmount isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4358	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4359	igcFreeAmount onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4360	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4361	^ igcFreeAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4362	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4364	igcFreeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4365
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366	igcFreeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368	igcFreeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370	^ igcFreeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4371	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373	igcLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4375	igcLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4376	igcLimit := ObjectMemory incrementalGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4377	igcLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4378	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4379	^ igcLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4380	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4382	maxOldSpace
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4384	maxOldSpace isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4385	maxOldSpace := ObjectMemory maxOldSpace asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4386	maxOldSpace onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4387	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4388	^ maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4389	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4390
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4391	newSpaceSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4392
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4393	newSpaceSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4394	newSpaceSize := ObjectMemory newSpaceSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4395	newSpaceSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4396	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4397	^ newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4398	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4399
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4400	oldIncr
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4402	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4403	oldIncr := ObjectMemory oldSpaceIncrement asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4404	oldIncr onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4405	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4406	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4407	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4409	stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4411	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4412	stackLimit := Process defaultMaximumStackSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4413	stackLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4414	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4415	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4416	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4418	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4419
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4420	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4421	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4423	warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4425	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4426	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4427	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4428	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4429	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4431	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4432
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4433	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4434
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4435	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4436	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4437	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4438	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4440	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4442	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4443
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4444	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4445	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4446	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4447	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4448	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4449	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4450	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4451	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4452	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4453	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4454	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4455	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4456	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4457	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4458
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4459	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4460
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4461	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4462	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4463	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4464
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4465	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4466	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4467
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4468	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4469	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4470	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4471	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4472	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4473
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4474	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4475
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4476	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4477	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4478	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	4479	@@@@_$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	4480	.+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	4481	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	4482	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	4483	[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	4484	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	4485	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4486
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4487	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4488
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4489	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4490	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4491	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4492
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4493	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4494	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4495
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4496	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4497	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4498	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4499	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4500	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4501
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4502	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4503
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4504	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4505	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4506	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4507	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4508	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4509	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4510	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4511	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4512	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4513	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4514	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4515	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4516	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4517	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4518	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4519	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4520	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4521	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4522	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4523	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4524	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4525	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4526	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4527	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4528	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4529	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4530	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4531	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4532	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4533	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4534	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4535	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4536	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4537	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4538	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4539	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4540	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4541	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4542	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4543	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4544	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4545	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4546	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4547	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4548	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4549	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4550	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4551	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4552	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4553	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4554	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4555	#translateLabel: true
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	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4560	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4561	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4562	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4563	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4564	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4565	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4566	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4567	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4568	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4569	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4570	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4571	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4572	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4573	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4574	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4575	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4576	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4577	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4578	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4579	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4580	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4581	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4582	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4583	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4584	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4585	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4586	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4587
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4588	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4589	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4590	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4591	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4592	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4593	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4594	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4595	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4596	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4597	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4598	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4599	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4600	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4601	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4602	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4603	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4604	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4605
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4606	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4607	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4608	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4609	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4610	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4611	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4612	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4613	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4614	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4615	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4616	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4617	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4618	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4619	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4620	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4621	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4622	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4623	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4624	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4625	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4626	#type: #password
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4627	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4628	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4629	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4630	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4631	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4632	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4633
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4634	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4635	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4636	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4637	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4638
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4639	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4640	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4641	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4642	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4643
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4644	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4645	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4646	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4647
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4648	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4649	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4650	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4651
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4652	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4653
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4654	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4655
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4656	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4657	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4658	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4659	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4660	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4661	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4662	SmalltalkShareServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4663	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4664	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4665	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4666	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4667	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4668	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4669	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4670	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4671	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4672	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4673	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4674	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4675	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4676	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4677	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4678	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4679	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4680	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4681	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4682	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4683	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4684	WindowMigrationServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4685	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4686	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4687	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4688	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4689	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4690	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4691	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4692	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4693	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4694	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4695	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4696
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4697	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4698
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4699	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4700	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4701	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4702
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4703	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4704	self remoteBrowsingEnabled value:(self hasRemoteBrowsingSupport
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4705	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4706	self windowMigrationEnabled value:(self hasWindowMigrationServer
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4707	and:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4708	WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4709	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4710	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4711	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4712	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4713	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4714	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4715	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4716	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4717	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4718	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4719	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4720
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4721	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4722
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4723	enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4724
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4725	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4726	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4727	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4728	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4729	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4730	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4731	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4732	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4733	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4734
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4735	remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4736
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4737	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4738	remoteBrowsingEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4739	remoteBrowsingEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4740	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4741	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4742	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4743
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4744	windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4745
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4746	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4747	windowMigrationAuthenticate := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4748	windowMigrationAuthenticate onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4749	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4750	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4751	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4752
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4753	windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4754
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4755	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4756	windowMigrationEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4757	windowMigrationEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4758	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4759	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4760	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4761
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4762	windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4763
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4764	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4765	windowMigrationPassword := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4766	windowMigrationPassword onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4767	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4768	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4769	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4770
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4771	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4772
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4773	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4774	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4775
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4776	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4777
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4778	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4779	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4780	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4781
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4782	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4783	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4784
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4785	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4786
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4787	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4788	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4789	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4790	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4791
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4792	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4793
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4794	hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4795
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4796	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4797	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4798
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4799	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4800
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4801	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4802	self remoteBrowsingEnabled value ~= (self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4803	self windowMigrationEnabled value ~= (self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4804	self windowMigrationPassword value ~= WindowMigrationServer password or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4805	self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil ]]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4806	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4807	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4808
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4809	hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4810
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4811	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4812	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4813
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4814	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4815
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4816	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4817	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4818	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4819
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4820	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4821	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4822
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4823	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4824	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4825	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4826	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4827	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4828
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4829	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4830
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4831	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4832	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4833	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	4834	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4835	@@@@@@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	4836	@ 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	4837	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	4838	@ 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	4839	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	4840	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4841
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4842	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4844	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4845	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4846	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4848	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4849	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4851	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4852	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4853	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4854	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4855	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4857	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4859	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4860	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4861	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4862	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4863	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	4864	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	4865	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4866	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4867	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4868	#bounds: #(#Rectangle 16 46 526 612)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4869	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4870	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4871	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4872	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4873	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4874	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4875	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4876	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4877	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4878	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4879	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4880	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4881	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4882	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4883	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4884	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4885	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4886	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4887	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4888	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4889	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4890	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4891	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4892	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4893	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4894	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4895	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4896	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4897	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4898	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4899	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4900	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4901	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4902	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4903	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4904	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4905	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4906	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4907	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4908	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4909	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4910	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4911	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4912	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4913	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4914	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4915	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4916	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4917	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4918	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4919	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4920	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4921	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4922	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4923	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4924	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4925	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4926	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4927	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4928	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4929	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4930	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4931	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4932	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4933	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4934	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4935	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4936	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4937	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4938	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4939	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4940	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4941	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4942	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4943	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4944	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4945	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4946	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4947	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4948	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4949	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4950	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4951	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4952	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4953	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4954	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4955	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4956	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4957	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4958	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4959	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4960	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4961	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4962	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4963	#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	4964	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4965	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4966	#adjust: #leftRight
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4967	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4968	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4969	#label: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4970	#name: 'CheckBox5'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4971	#layout: #(#LayoutFrame 0 0 -22 1 216 0 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4972	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4973	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4974	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4975	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4976	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4977	#layout: #(#LayoutFrame 218 0 -22 1 -5 1 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4978	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4979	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4980	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4981	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4982	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4983	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4984	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4985	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4986	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4987
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4988	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4989	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4990	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4991	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4992
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4993	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4994	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4995	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4996	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4998	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4999	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5000	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5001
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5002	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5003	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5004	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5005
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5006	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5007
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5008	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5009
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5010	PopUpView shadows:self shadows value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5011	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5012	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5013	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5014	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5015	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5016	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5017
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5018	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5019	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5020	\|l\|
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	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5023	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5024	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5025	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5026	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5027	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5028	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5029	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5030	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5031
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5032	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5033	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5034
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5035	currentUserPrefs beepEnabled:self beepEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5036
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5037	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5038	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5039	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5040	Screen current activateOnClick:self activateOnClick value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5041
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5042	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5043
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5044	"Modified: / 16.12.2002 / 18:06:31 / penk"
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5047	formatHostNameinWindowLabels
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5048	\|newFormat\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5050	newFormat := Dialog request:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5051	'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5052	withCRs initialAnswer:newWindowLabelFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5054	newFormat size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5055	newWindowLabelFormat := newFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5056	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5057	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5058	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5059
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5060	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5062	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5063	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5064	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5065
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5066	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5067	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5068	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5069	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5070	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5071	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5072	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5073	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5074	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5075	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5076	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5077	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5078	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5079	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5080	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5081	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5082	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5083	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5084
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5085	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5087	activateOnClick
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5088
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5089	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5090	activateOnClick := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5091	activateOnClick onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5092	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5093	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5094	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5095
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5096	beepEnabled
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5098	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5099	beepEnabled := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5100	beepEnabled onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5101	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5102	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5103	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5105	focusFollowsMouse
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5107	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5108	focusFollowsMouse := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5109	focusFollowsMouse onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5110	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5111	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5112	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5113
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5114	formatHostNameWindowLabel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5115
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5116	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5117	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5118	('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	5119	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5120	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5121	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5122
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5123	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5124	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5125	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5126
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5127	hostNameInLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5129	hostNameInLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5130	hostNameInLabelHolder := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5131	hostNameInLabelHolder onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5132	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5133	^ hostNameInLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5134	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5135
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5136	newWindowLabelFormat
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5137
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5138	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5139	newWindowLabelFormat := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5140	newWindowLabelFormat onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5141	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5142	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5143
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5144	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5145	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5146
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5147	opaqueTableColumnResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5148
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5149	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5150	opaqueTableColumnResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5151	opaqueTableColumnResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5152	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5153	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5154	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5156	opaqueVariablePanelResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5158	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5159	opaqueVariablePanelResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5160	opaqueVariablePanelResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5161	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5162	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5163	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5165	returnFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5167	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5168	returnFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5169	returnFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5170	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5171	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5172	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5174	shadows
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5176	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5177	shadows := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5178	shadows onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5179	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5180	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5181	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5182
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5183	showAccelerators
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5185	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5186	showAccelerators := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5187	showAccelerators onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5188	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5189	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5190	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5191
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5192	takeFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5193
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5195	takeFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5196	takeFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5199	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5200
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5201	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5202
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5203	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5204	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5206	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5208	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5209	"/ ^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5210	"/ ].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5211
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5212	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5213	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5214
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5215	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5217	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5218	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5220	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5221
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5222	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5223	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5224	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5226	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5228	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5229	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5230	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5231
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5232	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5233
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5234	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5235
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5236	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5237	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5238	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5239	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5240	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5241	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5242	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5243	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5244	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5245	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5246	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5247	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5248	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5249	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5250
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5251	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5252	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5253
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5254	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5255
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5256	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5257	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5258	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5259
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5260	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5261	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5262
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5263	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5264	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5265	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5266	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5267	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5268
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5269	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5270
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5271	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5272	constantNamed:#'AbstractSettingsApplication::OsiSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5273	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	5274	@@@@_$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	5275	.+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	5276	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	5277	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	5278	[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	5279	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	5280	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5281
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5282	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5283
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5284	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5285	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5286	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5287
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5288	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5289	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5290
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5291	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5292	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5293	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5294	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5295	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5296
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5297	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5298
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5299	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5300	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5301	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5302	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5303	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5304	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5305	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5306	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5307	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5308	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5309	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5310	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5311	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5312	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5313	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5314	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5315	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5316	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5317	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5318	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5319	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5320	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5321	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5322	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5323	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5324	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5325	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5326	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5327	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5328	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5329	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5330	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5331	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5332	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5333	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5334	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5335	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5336	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5337	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5338	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5339	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5340	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5341	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5342	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5343	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5344	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5345	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5346	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5347	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5348	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5349	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5350	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5351	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5352	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5353	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5354	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5355	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5356	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5357	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5358	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5359	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5360	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5361	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5362	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5363	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5364	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5365	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5366	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5367	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5368
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5369	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5370	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5371	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5372	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5373	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5374	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5375	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5376	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5377	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5378	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5379	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5380	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5381	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5382	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5383	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5384	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5385	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5386	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5387	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5388	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5389	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5390	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5391	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5392	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5393	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5394	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5395	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5396	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5397	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5398	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5399	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5400	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5401	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5402	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5403	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5404	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5405	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5406	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5407	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5408	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5409	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5410	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5411	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5412
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5413	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5414	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5415	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5416	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5417	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5418	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5419	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5420	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5421	#label: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5422	#name: 'Label3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5423	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5424	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5425	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5426	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5427	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5428	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5429	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5430	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5431	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5432	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5433	#name: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5434	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5435	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5436	#model: #osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5437	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5438	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5439	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5440	#label: 'Log Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5441	#name: 'CheckBox8'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5442	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5443	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5444	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5445	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5446	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5447	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5448
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5449	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5450	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5451	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5452	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5453
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5454	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5455	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5456	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5457	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5458
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5459	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5460	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5461	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5462
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5463	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5464	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5465	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5466
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5467	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5468
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5469	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5470
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5471	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5472	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5473	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5474	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5475	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5476	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5477	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5478	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5479	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5480	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5481	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5482	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5483	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5484	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5485	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5486
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5487	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5488
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5489	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5490	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5491
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5492	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5493	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5494	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5495	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5496	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5497	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5498	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5499	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5500	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5501	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5502	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5503	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5504	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5505	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5506	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5507	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5508	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5509	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5510	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5511	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5512
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5513	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5514
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5515	osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5516	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5517
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5518	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5519	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5520	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5521	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5522
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5523	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5524	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5525	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5526	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5527	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5528	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5529	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5530	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5531
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5532	osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5533	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5534
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5535	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5536	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5537	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5538	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5539
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5540	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5541	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5542	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5543	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5544	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5545	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5546	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5547	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5548
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5549	osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5550	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5551
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5552	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5553	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5554	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5555	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5556
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5557	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5558	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5559	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5560	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5561	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5562	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5563	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5564	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5565
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5566	osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5567	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5568
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5569	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5570	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5571	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5572	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5573
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5574	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5575	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5576	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5577	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5578	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5579	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5580	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5581	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5582
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5583	osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5584	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5585
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5586	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5587	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5588	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5589	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5590
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5591	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5592	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5593	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5594	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5595	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5596	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5597	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5598	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5599
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5600	osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5601	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5602
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5603	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5604	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5605	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5606	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5607
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5608	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5609	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5611	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5614	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5615	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5616
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5617	osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5618	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5619
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5620	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5621	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5622	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5623	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5624
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5625	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5627	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5628	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5629	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5630	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5631	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5632	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5633
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5634	osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5635	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5636
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5637	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5638	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5639	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5640	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5642	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5643	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5644	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5645	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5646	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5647	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5648	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5649	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5650
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5651	osiROSEInvokationLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5654	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5655	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5656	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5657	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5658
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5659	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5660	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5661	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5662	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5663	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5664	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5665	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5666	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5667
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5668	osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5669	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5670
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5671	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5672	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5673	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5674	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5675
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5676	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5677	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5678	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5679	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5680	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5681	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5682	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5683	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5684
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5685	osiROSEResponseLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5686	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5687
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5688	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5689	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5690	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5691	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5692
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5693	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5694	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5695	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5696	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5697	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5698	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5699	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5700	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5701
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5702	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5703
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5704	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5705	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5706
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5707	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5708
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5709	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5710	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5711	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5712
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5713	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5714	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5715
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5716	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5717
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5718	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5719
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5720	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5721	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5722	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5723	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5724	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5725	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5726	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5727	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5728	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5729	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5730	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5731	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5732	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5733
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5734	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5735
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5736	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5737	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5738	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5739
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5740	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5741	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5742
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5743	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5744	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5745	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5746	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5747	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5748
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5749	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5750
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5751	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5752	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5753	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	5754	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5755	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDA@PDA@P@@@@@@@@@A@@@@@@@@@@@@@@@@@P@@@@@@@@@@@P@@@PDA@P@@@PDA@@D@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5756	@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	5757	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	5758	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5759	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	5760	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5761
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5762	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5764	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5765	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5766	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5768	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5769	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5770
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5771	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5772	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5773	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5774	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5775	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5777	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5779	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5780	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5781	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5782	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5783	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5784	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5785	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5786	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5787	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5788	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5789	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5790	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5791	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5792	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5793	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5794	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5795	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5796	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5797	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5798	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5799	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5800	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5801	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5802	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5803	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5804	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5805	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5806	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5807	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5808	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5809	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5810	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5811	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5812	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5813	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5814	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5815	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5816	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5817	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5818	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5819	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5820	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5821	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5822	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5823	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5824	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5825	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5826	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5827	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5828	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5829	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5830	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5831	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5832	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	5833	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5834	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5835	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5836	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5837	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5838	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5839	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5840	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5841	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5842	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5843
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5844	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5845	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5846	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5847	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5848	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5849	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5850	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5851	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5852	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5853	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5854	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5855	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5856	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5857	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5858	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5859	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5860	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5861	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5862	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5863	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5864	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5866	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5867	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5868	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5884	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5888	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5893	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5895	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5896	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5897	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5902	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5906	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5910	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5913	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5914	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5915	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	5917	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5920	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5921	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5925	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5926	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5927	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5928	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5929	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5930	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5931	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5932	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5933
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5934	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5935	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5936	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5937	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5938	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5943	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5944	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5945	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5946	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5947	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5948	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5949	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5950	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5951	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5952	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5953	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	5954	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5955	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5956	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5957	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5958	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5959	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5960	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5961
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5962	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5963	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5964	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5965	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5966	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5967	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5968	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5969	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5970	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5971	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5972	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5973	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5974	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5975	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5976	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5977	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5978	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5979	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5980	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5981	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	5982	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5983	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5984	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5985	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5986	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5987	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5988	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5989
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5990	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5991	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5992	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5993	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5994	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5995	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5996	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5997	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5998	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5999	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6000	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6001	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6002	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6003	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6004	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6005	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6006	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6007	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6008	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6009	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6010	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6011	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6012	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6013	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6014	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6015	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6016	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6017
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6018	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6019	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6020	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6021	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6022
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6023	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6024	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6025	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6026	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6027	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6028	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6029	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6030
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6031	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6032	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6033	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6034	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6035	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6036	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6037	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6038	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6039	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6040	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6041	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6042	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6043	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6044	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6045	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6046	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6047	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6048
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6049	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6050	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6051	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6052	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6054	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6055	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6056	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6057
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6058	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6059	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6060	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6062	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6063
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6064	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6065
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6066	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6067	Printer printCommand:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6068
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6069	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6070	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6071	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6072	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6073	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6074	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6075	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6076	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6077	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6078	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6079	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6080	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6081	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6082	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6083	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6084	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6085	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6086	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6087	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6088	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6089
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6090	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6092	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6093	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6094	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6095
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6096	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6097	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6098	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6099	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6100	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6101	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6102	self printCommand value:Printer printCommand.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6103	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6104	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6105	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6106	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6107	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6108	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6109	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6110	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6111	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6113	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6114
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6115	bottomMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6116
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6117	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6118	bottomMargin := Printer bottomMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6119	bottomMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6120	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6121	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6122	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6123
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6124	enableColorBox
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6125
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6126	enableColorBox isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6127	enableColorBox := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6128	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6129	^ enableColorBox.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6130	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6132	enableFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6134	enableFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6135	enableFormat := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6136	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6137	^ enableFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6138	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6139
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6140	enableMargins
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6142	enableMargins isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6143	enableMargins := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6144	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6145	^ enableMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6146	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6147
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6148	enablelandscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6149
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6150	enablelandscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6151	enablelandscape := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6152	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6153	^ enablelandscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6154	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6156	landscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6158	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6159	landscape := Printer landscape asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6160	landscape onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6161	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6162	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6163	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6165	leftMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6167	leftMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6168	leftMargin := Printer leftMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6169	leftMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6170	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6171	^ leftMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6172	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6174	pageFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6176	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6177	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6178	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6179	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6180	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6181	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6182	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6183	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6184	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6185	pageFormat onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6186	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6187	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6188	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6189
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6190	pageFormatList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6191
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6192	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6193	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6194	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6195	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6196	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6197
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6198	printCommand
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6199
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6200	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6201	printCommand := Printer printCommand asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6202	printCommand onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6203	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6204	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6205	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6206
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6207	printCommandList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6208
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6209	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6210	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6211	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6212	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6213	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6215	printerType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6217	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6218	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6219	printerType onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6220	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6221	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6222	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6223
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6224	printerTypeSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6226	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6227	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6228	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6229	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6230	printerTypeSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6231	printerTypeSelection onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6232	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6233	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6234	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6235
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6236	rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6237
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6238	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6239	rightMargin := Printer rightMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6240	rightMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6241	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6242	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6243	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6244
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6245	selectedUnit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6246
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6247	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6248	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6249	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6250	selectedUnit changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6251	selectedUnit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6252	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6253	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6254	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6255
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6256	supportsColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6258	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6259	supportsColor := Printer supportsColor asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6260	supportsColor onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6261	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6262	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6263	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6264
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6265	topMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6266
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6267	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6268	topMargin := Printer topMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6269	topMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6270	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6271	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6272	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6273
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6274	unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6276	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6277	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6278	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6279	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6280	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6282	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6283
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6284	printerTypeSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6286	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6287	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6288	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6289	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6290	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6291	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6292	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6293	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6294	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6295	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6297	printerTypeSelectionOrUnitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6298
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6299	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6300
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6301	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6302	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6303	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6304	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6305	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6306	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6307	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6308	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6309	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6310	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6311	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6312	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6313	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6314	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6315	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6316	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6317	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6318	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6319	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6320	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6321	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6322	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6323
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6324	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6325	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6326	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6327	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6328
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6329	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6330	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6331	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6333	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6334	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6335	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6336	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6337	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6338	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6339	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6340	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6341	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6342	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6343	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6344	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6345	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6346	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6347	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6348	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6349
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6350	unitListChanged
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	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6354	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6356	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6358	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6359	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6360	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6361	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6362
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6363	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6364	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6365
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6366	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6368	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6369	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6371	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6373	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6374	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6375	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6376
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6377	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6378
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6379	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6380	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6381	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6382
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6383	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6384
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6385	commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6386	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6387	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6388	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6389	commandList := PrinterStream defaultCommands.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6390	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6391	commandList := #('lpr'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6392	'lp'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6393	) asOrderedCollection.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6394	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6395	(commandList includes:self printCommand value) not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6396	commandList add:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6397	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6398	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6399	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6400	^ commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6401	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6402
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6403	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6404
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6406	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6407	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6408	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6409	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6410	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6411	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6412	printer := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6413	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6414	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6415	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6416	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6417	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6418	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6419	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6420	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6421	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	6422	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	6423	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	6424	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6425	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6426	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6427	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6428	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6429	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6430	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6431
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6432	possiblePrinters
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6433	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6434	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6435	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6436	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6437	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6438
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6439	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6440
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6441	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6442	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6443	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6444
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6445	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6446	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6447
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6448	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6449	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6450	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6451	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6452	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6453
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6454	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6455
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6456	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6457	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6458	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	6459	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC@0L@@@@@@@@@@@@@@@@@@@@C@0LB@PDB@0LC@@@@@@@@@@@@@@@C@ HBA@DAA@HB@ L@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6460	@@@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	6461	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	6462	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	6463	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	6464	@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	6465	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6466
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6467	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6468
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6469	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6470	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6471	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6472
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6473	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6474	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6475
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6476	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6477	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6478	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6479	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6480	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6481
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6482	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6483
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6484	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6485	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6486	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6487	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6488	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6489	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6490	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6491	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6492	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6493	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6494	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6495	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6496	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6497	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6498	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6499	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6500	#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	6501	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6502	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6503	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6504	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6505	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6506	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6507	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6508	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6509	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6510	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6511	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6512	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6513	#extent: #(#Point 600 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6514	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6515	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6516	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6517	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6518	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6519	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6520	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6521	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6522	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6523	#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	6524	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6525	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6526	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6527	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6528	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6529
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6530	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6531	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6532	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6533	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6534
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6535	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6536	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6537	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6538
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6539	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6540	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6541	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6542
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6543	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6544
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6545	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6546
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6547	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6548	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6549	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6550	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6551	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6552	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6553	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6554	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6555	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6556	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6557	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6558
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6559	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6560
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6561	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6562	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6563	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6564
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6565	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6566	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6567	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6568	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6569	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6570
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6571	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6572
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6573	dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6574	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6575
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6576	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6577	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6578	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6579	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6580
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6581	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6582	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6583	"/ 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	6584	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6585	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6586	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6587	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6588	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6589
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6590	preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6591	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6592
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6593	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6594	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6595	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6596	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6597
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6598	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6599	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6600	"/ 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	6601	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6602	"/ preemptive onChangeSend:#preemptiveChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6603	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6604	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6605	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6606
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6607	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6608
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6609	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6610	"Invoked when an object that I depend upon sends a change notification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6611
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6612	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6613
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6614	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6615	"/ ^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6616	"/ ].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6617
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6618	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6619	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6620
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6621	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6622
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6623	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6624
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6625	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6626	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6627	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6628	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6629	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6630
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6631	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6632
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6633	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6634	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6635	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6636
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6637	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6638	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6639
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6640	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6641	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6642	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6643	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6644	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6645
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6646	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6647
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6648	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6649	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6650	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	6651	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6652	@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	6653	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	6654	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	6655	JR0+JP@,JP@@@@HUEP@@@@@@@@@@@B$+KB,,J20)JP@@@@@@@@@@@@@@@@@)K@@)J0@+JR$@@@@@@@@@@@@@@@@@@@@@JR0)@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6656	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6657	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6658
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6659	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6660
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6661	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6662	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6663	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6664
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6665	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6666	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6667
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6668	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6669	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6670	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6671	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6672	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6673
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6674	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6675
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6676	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6677	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6678	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6679	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6680	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6681	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6682	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6683	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6684	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6685	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6686	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6687	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6688	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6689	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6690	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6691	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6692	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6693	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6694	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6695	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6696	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6697	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6698	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6699	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6700	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6701	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6702	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6703	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6704	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6705	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6706	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6707	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6708	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6709	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6710	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6711	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6712	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6713	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6714	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6715	#label: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6716	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6717	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6718	#enableChannel: #hasRDoitServerClass
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6719	#model: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6720	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6721	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6722	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6723
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6724	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6725	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6726	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6727	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6728	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6729	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6730	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6731	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6732	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6733	#label: 'Port:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6734	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6735	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6736	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6737	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6738	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6739	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6740	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6741	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6742	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6743	#model: #rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6744	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6745	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6746	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6747	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6748	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6749	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6750	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6751
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6752	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6753	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6754	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6755	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6756	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6757	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6758	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6759	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6760	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6761	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6762	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6763	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6764	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6765	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6766	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6767	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6768	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6769
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6770	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6771	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6772	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6773	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6774	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6775	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6776	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6777	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6778	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6779	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6780	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6781	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6782	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6783	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6784	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6785	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6786	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6787
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6788	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6789	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6790	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6791	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6792	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6793	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6794	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6795	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6796	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6797	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6798	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6799	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6800	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6801	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6802	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6803	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6804	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6805
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6806	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6807	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6808	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6809	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6810
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6811	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6812	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6813	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6814	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6815
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6816	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6817	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6818	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6819
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6820	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6821	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6822	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6823
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6824	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6825
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6826	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6827
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6828	\|rDoits\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6829
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6830	RDoItServer defaultPortNumber:self rDoitServerPort value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6831	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6832	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6833	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6834	rDoits := self rDoitsEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6835	rDoits ~~ RDoItServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6836	rDoits ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6837	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6838	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6839	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6840	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6841	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6842	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6843	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6844	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6845	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6846	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6847	].
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
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6850	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6851
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6852	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6853	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6854	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6855
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6856	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6857	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6858	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6859	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6860	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6861	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6862	self rDoitServerPort value:RDoItServer defaultPortNumber
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6863	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6864	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6865	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6866	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6867	self rDoitErrorDebugging value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6868	self rDoitServerPort value:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6869	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6870	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6871	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6872
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6873	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6874
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6875	rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6876
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6877	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6878	rDoitErrorDebugging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6879	rDoitErrorDebugging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6880	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6881	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6882	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6883
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6884	rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6885
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6886	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6887	rDoitErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6888	rDoitErrorLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6889	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6890	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6891	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6892
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6893	rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6894
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6895	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6896	rDoitLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6897	rDoitLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6898	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6899	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6900	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6901
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6902	rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6903
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6904	rDoitServerPort isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6905	rDoitServerPort := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6906	rDoitServerPort onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6907	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6908	^ rDoitServerPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6909	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6910
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6911	rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6912
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6913	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6914	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6915	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6916	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6917	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6918	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6919
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6920	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6921
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6922	rDoitsEnabledChanged
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6923	self evaluateModified.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6924	self rDoitsEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6925	RDoItServer isLoaded ifFalse:[RDoItServer autoload].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6926	rDoitServerPort value isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6927	rDoitServerPort value:(RDoItServer defaultPortNumber).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6928	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6929	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6930	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6931
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6932	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6933	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6934
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6935	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6936
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6937	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6938	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6939	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6940	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6941
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6942	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6943	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6944
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6945	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6946
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6947	postOpen
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6948	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6949
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6950	postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6951
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6952	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6953	^ super postOpenAsSubcanvasWith:aBuilder
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	postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6957
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6958	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6959	^ super postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6960	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6961
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6962	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6963
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6964	hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6965
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6966	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6967	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6968
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6969	hasRDoitServerClass
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6970	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6971	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6972
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6973	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6974
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6975	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6976	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6977	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6978	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6979	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6980	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6981	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6982	self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6983	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6984	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6985	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6986	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6987
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6988	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6989
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6990	stcCompilationDemoStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6991
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6992	^ #('never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6993	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6994
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6995	stcCompilationFullVersionStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6996
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6997	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6998	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6999
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7000	stcCompilationOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7001
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7002	^ #( always default never)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7003	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7004
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7005	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7006
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7007	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7008	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7009	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7010
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7011	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7012	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7013
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7014	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7015	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7016	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7017	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7018	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7019
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7020	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7021
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7022	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7023	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7024	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	7025	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7026	@@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	7027	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	7028	@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	7029	@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	7030	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7031	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7032
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7033	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7034
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7035	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7036	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7037	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7038
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7039	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7040	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7041
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7042	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7043	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7044	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7045	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7046	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7047
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7048	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7049
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7050	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7051	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7052	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7053	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7054	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7055	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7056	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7057	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7058	#max: #(#Point 1024 768)
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7059	#bounds: #(#Rectangle 14 46 614 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7060	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7061	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7062	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7063	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7064	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7065	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7066	#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	7067	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7068	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7069	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7070	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7071	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7072	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7073	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7074	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7075	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7076	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7077	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7078	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7079	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7080	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7081	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7082	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7083	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7084	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7085	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7086	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7087	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7088	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7089	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7090	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7091	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7092	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7093	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7094	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7095	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7096	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7097
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7098	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7099	#extent: #(#Point 600 29)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7100	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7101	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7102	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7103	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7104	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7105	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7106	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7107	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7108	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7109	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7110	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7111	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7112	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7113	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7114	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7115	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7116	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7117	#model: #stc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7118	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7119	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7120	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7121	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7122	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7123	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7124	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7125
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7126	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7127	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7128	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7129	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7130	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7131	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7132	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7133	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7134	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7135	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7136	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7137	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7138	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7139	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7140	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7141	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7142	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7143	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7144	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7145	#model: #stcOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7146	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7147	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7148	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7149	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7150	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7151	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7152	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7153
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7154	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7155	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7156	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7157	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7158	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7159	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7160	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7161	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7162	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7163	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7164	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7165	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7166	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7167	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7168	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7169	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7170	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7171	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7172	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7173	#model: #cc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7174	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7175	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7176	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7177	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7178	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7179	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7180	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7181
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7182	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7183	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7184	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7185	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7186	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7187	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7188	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7189	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7190	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7191	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7192	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7193	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7194	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7195	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7196	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7197	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7198	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7199	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7200	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7201	#model: #ccOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7202	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7203	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7204	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7205	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7206	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7207	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7208	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7209
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7210	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7211	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7212	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7213	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7214	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7215	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7216	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7217	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7218	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7219	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7220	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7221	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7222	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7223	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7224	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7225	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7226	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7227	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7228	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7229	#model: #stcIncludes
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7230	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7231	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7232	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7233	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7234	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7235	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7236	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7237
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7238	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7239	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7240	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7241	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7242	#name: 'Box6'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7243	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7244	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7245	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7246	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7247	#label: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7248	#name: 'Label6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7249	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7250	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7251	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7252	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7253	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7254	#name: 'EntryField6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7255	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7256	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7257	#model: #stcDefines
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7258	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7259	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7260	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7261	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7262	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7263	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7264	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7265
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7266	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7267	#extent: #(#Point 600 34)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7268	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7269	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7270	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7271	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7272	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7273	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7274	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7275	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7276	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7277	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7278	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7279	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7280	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7281	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7282	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7283	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7284	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7285	#model: #linkCommand
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7286	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7287	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7288	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7289	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7290	#acceptOnPointerLeave: true
4387 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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7294	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7295	#extent: #(#Point 600 33)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7298	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7299	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7300	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7301	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7302	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7303	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7304	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7305	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7306	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7307	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7308	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7309	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7310	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7311	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7312	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7313	#model: #linkArgs
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7314	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7315	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7316	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7317	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7318	#acceptOnPointerLeave: true
4387 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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7322	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7323	#extent: #(#Point 600 32)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7326	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7327	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7328	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7329	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7330	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7331	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7332	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7333	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7334	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7335	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7336	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7337	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7338	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7339	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7340	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7341	#model: #stcLibraries
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7342	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7343	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7344	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7345	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7346	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7347	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7348	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7349
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7350	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7351	#extent: #(#Point 600 31)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7352	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7353	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7354	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7355	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7356	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7357	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7358	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7359	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7360	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7361	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7362	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7363	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7364	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7365	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7366	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7367	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7368	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7369	#model: #stcLibraryPath
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7370	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7371	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7372	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7373	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7374	#acceptOnPointerLeave: true
4387 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
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	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7380	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7381	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7382
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7383	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7384	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7385	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7386
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7387	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7388	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7389	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7390
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7391	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7392
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7393	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7394
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7395	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7396	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7397	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7398	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7399	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7400	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7401	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7402	Compiler stcPath:self stc value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7403	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7404	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7405	ObjectFileLoader linkArgs:self linkArgs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7406	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7407	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7408	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7409	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7410	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7411	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7412	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7413	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7414	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7415
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7416	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7417
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7418	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7419	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7420	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7421
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7422	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7423	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7424	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7425	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7426	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7427	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7428	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7429	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7430	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7431	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7432	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7433	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7434	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7435
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7436	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7437	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7438	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7439	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7440	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7441	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7442	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7443	self thisIsADemoVersion ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7444	self stcCompilationSelection value:(self class stcCompilationOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7445	indexOf:(Compiler stcCompilation)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7446	ifAbsent:2)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7447	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7448	self stcCompilationSelection value:2
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7449	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7450	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7451	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7452
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7453	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7454
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7455	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7456
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7457	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7458	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
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	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7461	!
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	cc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7464
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7465	cc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7466	cc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7467	cc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7468	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7469	^ cc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7470	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7471
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7472	ccOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7473
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7474	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7475	ccOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7476	ccOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7477	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7478	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7480
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7481	enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7482
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7483	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7484	!
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	linkArgs
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	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489	linkArgs := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	linkArgs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7492	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7493	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7494
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7495	linkCommand
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7497	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7498	linkCommand := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7499	linkCommand onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7502	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7503
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7504	stc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7505
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7506	stc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7507	stc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7508	stc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7509	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7510	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7511	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7512
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7513	stcCompilationList
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	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7516	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7517	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7518	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7519	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7520	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7521	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7522	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7523	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7524
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7525	stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7526
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7527	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7528	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7529	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7530	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7531	stcCompilationSelection := 2 asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7532	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7533	stcCompilationSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7534	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7535	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7536	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7537
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7538	stcDefines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7539
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7540	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7541	stcDefines := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7542	stcDefines onChangeSend:#evaluateModified to:self.
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	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7545	!
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	stcIncludes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7548
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7549	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7550	stcIncludes := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7551	stcIncludes onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7552	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7553	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7554	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7555
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7556	stcLibraries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7557
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7558	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7559	stcLibraries := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7560	stcLibraries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7561	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7562	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7563	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7564
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7565	stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7566
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7567	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7568	stcLibraryPath := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7569	stcLibraryPath onChangeSend:#evaluateModified to:self.
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	^ stcLibraryPath.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	stcOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7575
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7576	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7577	stcOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7578	stcOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7579	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7580	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7581	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7582
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7583	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'change & update'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7584
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7585	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7586	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7587
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588	"stub code automatically generated - please change as required"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7589
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7590	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7591	"/ ^ self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7592	"/ ].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7593
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7594	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7595	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7596
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7597	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
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	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	searchedLibs := ObjectFileLoader searchedLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7603	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7604	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7605	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7606	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7607	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7608	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7609	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7610	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7611	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7612	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7613	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7614	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7615	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7616	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7617	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7618	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7619	ObjectFileLoader libPath ~= self stcLibraryPath value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7620	])])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7621	]]]]]]]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7622	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7623	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7624
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7625	thisIsADemoVersion
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	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
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
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7630	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7631
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7632	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7633
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7634	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7635	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7636	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7637
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7638	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7639
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7640	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7641	self at:index. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7642	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7643	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7644	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7645	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7646	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7647	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7648	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7649	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7650	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7651	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7652	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7653	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7654	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7655	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7656	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7657	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7658	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7659	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7660	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7661	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7662	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7663	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7664	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7665	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7666	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7667	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7668	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7669	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7670	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7671	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7672	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7673	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7674	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7675
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7676	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7677
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7678	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7679	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7680	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7681
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7682	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7683	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7684
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7685	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7686	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7687	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7688	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7689	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7690
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7691	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7692
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7693	^Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7694	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7695	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	7696	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7697	@@(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	7698	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	7699	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	7700	@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	7701	@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	7702	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7703
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7704	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7705
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7706	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7707	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7708	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7709
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7710	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7711	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7712
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7713	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7714	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7715	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7716	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7717	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7718
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7719	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7720
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7721	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7722	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7723	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7724	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7725	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7726	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7727	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7728	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7729	#max: #(#Point 1024 768)
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7730	#bounds: #(#Rectangle 16 42 620 718)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7731	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7732	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7733	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7734	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7735	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7736	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7737	#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	7738	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7739	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7740	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7741	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7742	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7743	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7744	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7745	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7746	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7747	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7748	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7749	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7750	#verticalSpace: 10
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7751	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7752	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7753	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7754	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7755	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7756	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7757	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7758	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7759	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7760	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7761	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7762	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7763	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7764	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7765	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7766	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7767	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7768	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7769	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7770	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7771	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7772	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7773	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7774	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7775	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7776	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7777	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7778	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7779	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7780	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7781	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7782	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7783	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7784
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7785	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7786	#extent: #(#Point 594 300)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7787	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7788	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7789	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7790	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7791	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7792	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7793	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7794	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7795	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7796	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7797	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7798	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7799	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7800	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7801	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7802	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7803	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7804	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7805	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7806	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7807	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7808	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7809	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7810	#label: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7811	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7812	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7813	#model: #emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7814	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7815	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7816	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7817
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7818	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7819	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7820	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7821	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7822	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7823	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7824	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7825	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7826	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7827	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7828	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7829	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7830	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7831	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7832	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7833	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7834	#label: 'Space after '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7835	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7836	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7837	#model: #spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7838	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7839	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7840	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7841
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7842	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7843	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7844	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7845	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7846	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7847	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7848	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7849	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7850	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7851	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7852	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7853	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7854	#model: #blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7855	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7856	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7857	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7858	#label: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7859	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7860	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7861	#model: #cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7862	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7863	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7864	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7865
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7866	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7867	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7868	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7869	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7870	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7871	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7872	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7873	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7874	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7875	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7876	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7877	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7878	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7879	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7880	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7881	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7882	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7883	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7884	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7885	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7886	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7887	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7888	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7889	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7890	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7891	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7892	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7893	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7894	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7895	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7896	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7899	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7900	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7901	#model: #maxLengthForSingleLineBlocks
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7902	#type: #number
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7903	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7904	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7905	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7906	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7907	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7908	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7909
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	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7912	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7913	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7914	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7915	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7916	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7917	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7918	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7919	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7920	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7921	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7922	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7923	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7924	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7925	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7926	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7927	#extent: #(#Point 292 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7928	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7929	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7930	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7931	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7932	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7933	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7934	#extent: #(#Point 293 22)
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	)
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	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7940	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7941	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7942
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7943	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7944	#extent: #(#Point 594 150)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7945	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7946	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7947
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7948	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7949	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7950	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7951	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7952
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7953	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7954	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7955	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7956
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7957	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7958	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7959	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7960
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7961	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7962
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7963	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7964
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7965	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7966	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7967	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7968	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7969	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7970	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7971	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7972	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7973	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7974	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7975	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7976	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7977	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7978	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7979	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7980	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7981	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7982	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7983	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7984
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7985	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7986
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7987	"/ self warn:'no help available here'.
4419 d5de0cf67edb new source code format settings help file penk parents: 4405 diff changeset	7988	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7989	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7990
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7991	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7992	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7993	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7994	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7995	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7996	self emptyLineAfterTemporaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7997	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7998	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7999	self spaceAfterKeywordSelector
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8000	value:RBFormatter spaceAfterKeywordSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8001	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8002	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8003	self maxLengthForSingleLineBlocks
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8004	value:RBFormatter maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8005	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8006	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8007	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8008	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8009	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8010
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8011	reformat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8012
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8013	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8014	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8015	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8016
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8017	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8018	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8019	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8020	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8021	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8022	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8023	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8024	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8025	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8026	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8027	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8028	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8029
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8030	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8031	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8032	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8033	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8034	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8035	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8036	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8037	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8038	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8039
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8040	tree := RBParser
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8041	parseMethod:self class exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8042	onError: [:aString :position \| nil].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8043	tree do:[:node \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8044	(node ~~ tree and:[node parent isNil]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8045	self error:'No parent for node'.
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	self editorText value:tree printString.
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	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8051	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8052	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8053	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8054	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8055	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8056	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8057	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8058	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8059	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8060	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8061
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8062	resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8063
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8064	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8065	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8066	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8067	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8068	self spaceAroundTemporaries value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8069	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8070	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8071	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8072	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8073	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8074	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8075	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8076
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8077	resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8080	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8081	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8082	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8083	self spaceAroundTemporaries value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8084	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8085	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8086	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8087	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8088	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8089	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8090	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8091
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8094	autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8095
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8096	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8097	autoFormat := currentUserPrefs autoFormatting asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8098	autoFormat onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8099	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8100	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8101	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8102
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8103	blockArgumentsOnNewLine
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	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8106	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8107	blockArgumentsOnNewLine addDependent:self.
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	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8110	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8111
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8112	cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8113
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8114	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8115	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8116	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8117	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8118	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121	editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8122
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8123	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8124	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8125	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8126	^ editorText.
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	emptyLineAfterTemporaries
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	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8132	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8133	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8134	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8135	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8136	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8137
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8138	maxLengthForSingleLineBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8139
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8140	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8141	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8142	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8143	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8144	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147	spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8148
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8152	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8153	^ spaceAfterKeywordSelector.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8159	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160	spaceAfterReturnToken addDependent:self.
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	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8164
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8165	spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8166
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8167	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8168	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8169	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8170	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8171	^ spaceAroundTemporaries.
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	tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8175
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8176	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8178	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8179	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8181	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8182
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8183	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8184
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8185	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186	"Invoked when an object that I depend upon sends a change notification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8187
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8188	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195	changedObject == self spaceAfterReturnToken or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196	changedObject == self spaceAroundTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8197	changedObject == self tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	]]]]]]]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8199	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8200	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8201	^ self.
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	super update:something with:aParameter from:changedObject
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
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	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8209	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8210	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8211	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8212	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8213	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8214	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8215	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8216	reformatLocked := false.
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	postBuildTextEditor:aWidget
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	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8222	scrollWhenUpdating:nil.
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:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8226
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8227	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8228
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8229	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8230	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8231	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8232	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8233	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8234	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8235	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8236	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8237	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8238	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8239	]]]]]]]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8240	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8241	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8242
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8243	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8244
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8245	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8246	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8247	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8248
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8249	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8250	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8251
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8252	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8253	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8254	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8255	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8256	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8257
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8258	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8259
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8260	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8261	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8262	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	8263	@@@@@@@@@@@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	8264	@@@QMTT5H0$@@@@@@@@@@@ F@@@@@@@@FT(>GPX@@@@@@@@@@@@@A @@@@@@@A!!HMR4H@@@@@@@@@@@@@@@@@@XNE1\ QSL]B0XFA @@@@@@@@@@@@@FGDAI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8265	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	8266	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	8267	@@@@@@@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	8268	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	8269	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8270
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8271	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8273	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8274	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8275	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8277	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8278	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8279
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8280	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8281	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8282	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8283	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8284	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8286	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8288	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8289	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8290	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8291	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8292	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8293	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8294	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8295	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8296	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8297	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8298	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8299	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8300	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8301	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8302	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8303	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8304	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8305	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8306	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8307	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8308	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8309	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8310	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8311	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8312	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8313	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8314	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8317	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8318	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8319	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8320	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8321	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8322	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8323	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8324	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8325	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8326	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8327	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8328	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8329	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8330	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8331	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8332	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8333	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8334	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8335
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8336	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8337	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8338	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8339	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8340	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8341	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8342	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8343	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8344	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8345	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8346	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8347	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8348	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8349	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8350	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8351	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8352	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8353	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8354	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8355	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8356	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8357	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8358	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8359	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8360	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8361	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8362	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8363	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8364	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8365	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8366	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8367	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8368	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8369	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8370	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8371
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8372	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8373	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8374	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8375	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8376	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8377	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8378	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8379	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8380	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8381	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8382	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8383	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8384	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8385	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8386	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8387	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8388	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8389	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8390	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8391	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8392	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8393	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8394	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8395	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8396	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8397	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8398	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8399	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8400	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8401	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8402	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8403	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8404
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8405	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8406	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8407	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8408	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8409	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8410	#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	8411	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8412	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8413	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8414	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8415	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8416	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8417	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8418	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8419	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8420	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8421	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8422	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8423	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8424	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8425	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8426	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8427	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8428	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8429	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8430	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8431	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8432	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8433	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8434	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8435	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8436	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8437	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8438	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8439	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8440	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8441	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8442	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8443	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8444	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8445	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8446	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8447	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8448	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8449	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8450	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8451	#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	8452	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8453	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8454	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8455	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8456	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8457	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8458	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8459	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8460	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8461	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8462	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8463	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8464	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8465	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8466	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8467	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8468	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8469	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8470	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8471	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8472	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8473	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8474	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8475	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8476	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8477	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8478	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8479	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8480	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8481	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8482	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8483	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8484	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8485	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8486	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8487	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8488	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8489	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8490	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8491	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8492	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8493
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8494	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8495	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8496	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8497
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8498	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8499	#extent: #(#Point 661 321)
4398 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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8502	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8503	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8504	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8505	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8506	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8507	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8508	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8509	#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	8510	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8511	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8514	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8515	#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	8516	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8517	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8518	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8519	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8520	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8521	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8522	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8523	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8524	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8525
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8526	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8527	#extent: #(#Point 661 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8528	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8529	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8530	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8531	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8532	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8533	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8534	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8535	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8536	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8537	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8538	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8539	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8540	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8541	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8542	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8543	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8544	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8545	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8546	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8547	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8548	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8549	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8550	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8551	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8552	#extent: #(#Point 286 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8553	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8554	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8555
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8556	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8557	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8558	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8559	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8560	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8561	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8562	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8563	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8564	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8565	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8566	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8567	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8568	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8569	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8570	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8571	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8572	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8573
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8574	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8575	#extent: #(#Point 661 25)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8576	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8577	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8578	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8579	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8580	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8582	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8583	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8584	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8585	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8586	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8587	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8588	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8589	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8590	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8591
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8592	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8593	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8594	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8595	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8596
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8597	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8598	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8599	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8600	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8602	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8603	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8604	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8606	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8607	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8608	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8609
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8610	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8612	manager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8614	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8615	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8616
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8617	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8618
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8619	addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8620
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8621	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8622
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8623	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8624	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8625	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8626	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8627	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8628	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8629	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8630	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8631	rootsPerModule at:module put:cvsRoot.
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8635	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8636
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8637	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8638	manager isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8639	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8640	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8641	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8642	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8643
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8644	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8645	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8646	nm := self sourceCacheDir value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8647	nm size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8648	(fn := nm asFilename) exists ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8649	(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	8650	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8651	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8652	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8653	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8654	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8655	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8656	(fn exists
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8657	and:[fn isDirectory
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8658	and:[fn isReadable
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8659	and:[fn isWritable]]]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8660	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8661	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8662	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8663	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8664	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8665	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8666
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8667	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8668	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8669	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8670	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8671	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8672	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8673	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8674	self cvsBinDirectoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8675	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8676	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8677	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8678	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	8679	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8680	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8681	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8682	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8683	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8684
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8685	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8686	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8687	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8688
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8689	condenseSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8691	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8692	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8694	flushSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8696	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8697	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8699	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8701	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8702	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8703	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8704
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8705	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8706	self hasManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8707	self useManager
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8708	value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8709	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8710	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8711	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8712	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8713	repository := manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8714	repository notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8715	repositoryHolder := repository asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8716	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8717	repositoryHolder := '' asValue
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8718	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8719	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8720	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8721	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8722	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8723	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8724	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8725	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8726	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8727	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8728	self cvsRootHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8729	value:CVSSourceCodeManager repositoryName ? '/files/CVS'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8730	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8731	self perModuleRootModule value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8732	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8733	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8734
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8735	removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8736
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8737	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8738
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8739	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8740	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8741	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8742	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8743	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8744	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8745	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8746
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8747	setupSourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8748
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8749	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8750	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8751	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8752	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8753	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8754	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8755	].
4398 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	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8759
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8760	acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8761
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8762	acceptChannel isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8763	acceptChannel := TriggerValue new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8764	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8765	^ acceptChannel.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8766	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8767
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8768	checkClassesWhenCheckingIn
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8770	checkClassesWhenCheckingIn isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8771	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8772	checkClassesWhenCheckingIn onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8773	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8774	^ checkClassesWhenCheckingIn.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8775	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8776
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8777	cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8778	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8779
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8780	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8781	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8782	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8783	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8784
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8785	cvsBinDirectoryHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8786	cvsBinDirectoryHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8787	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8788	"/ cvsBinDirectoryHolder addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8789	"/ cvsBinDirectoryHolder onChangeSend:#cvsBinDirectoryHolderChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8790	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8791	^ cvsBinDirectoryHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8792	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8793
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8794	cvsIsSetup
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8796	cvsIsSetup isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8797	cvsIsSetup := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8798	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8799	"/ cvsIsSetup addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8800	"/ cvsIsSetup onChangeSend:#cvsIsSetupChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8801	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8802	^ cvsIsSetup.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8803	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8804
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8805	cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8806
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8807	cvsRootHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8808	cvsRootHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8809	cvsRootHolder onChangeSend:#evaluateModified to:self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8810	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8811	^ cvsRootHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8812	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8813
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8814	cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8815
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8816	cvsRootPrototypeList isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8817	OperatingSystem isUNIXlike ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8818	cvsRootPrototypeList := #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8819	'/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8820	'/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8821	'host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8822	'host:/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8823	':pserver:user@host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8824	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8825	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8826	OperatingSystem isMSDOSlike ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8827	cvsRootPrototypeList := #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8828	':local:c:\files\CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8829	':local:c:\CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8830	'host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8831	'host:/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8832	':pserver:user@host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8833	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8834	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8835	cvsRootPrototypeList := #('host:/files/CVS' 'host:/CVS' ':pserver:user@host:/files/CVS').
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8836	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8837	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8838	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8839	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8840	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8841
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8842	listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8843
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8844	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8845	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8846	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8847	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8848	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8849	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8850
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8851	localSourceFirst
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8853	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8854	localSourceFirst := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8855	localSourceFirst onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8856	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8857	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8858	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8859
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8860	perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8861	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8862
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8863	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8864	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8865	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8866	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8867
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8868	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8869	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8870	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8871	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8872	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8873	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8874	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8875	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8876
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8877	perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8878	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8879
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8880	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8881	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8882	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8883	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8884
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8885	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8886	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8887	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8888	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8889	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8890	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8891	^ perModuleRootModule.
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	removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8895
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8896	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8897	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8898	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8899	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8900	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8901
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8902	selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8903
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8904	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8905	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8906	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8907	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8908	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8909	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8910	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8911	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8912
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8913	sourceCacheDir
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8914
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8915	sourceCacheDir isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8916	sourceCacheDir := nil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8917	sourceCacheDir addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8918	sourceCacheDir onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8919	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8920	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8921	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8923	useManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8924
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8925	useManager isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8926	useManager := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8927	useManager onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8928	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8929	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8930	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8931
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8932	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8933
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8934	selectedPerModuleRootChanged
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8935
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8936	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8937
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8938	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8939	module := self selectedPerModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8940	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8941	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8942	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8943	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8944	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8945
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8946	sourceDirChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8947
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8948	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8949	\| nm fn\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8950	nm := self sourceCacheDir value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8951	nm size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8952	(fn := nm asFilename) exists ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8953	(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8954	fn makeDirectory;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8955	makeReadableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8956	makeWritableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8957	makeExecutableForAll.
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	(fn exists
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8961	and:[fn isDirectory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8962	and:[fn isReadable
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8963	and:[fn isWritable]]]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8964	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8965	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8966	self warn:'Invalid sourceCache directory.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8967	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8968	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8969	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8970	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8971	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8973	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8974	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8976	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8977
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8978	changedObject == self sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8979	self sourceDirChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8980	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8981	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8982	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8983	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8984	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8985	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8987	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8988	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8989
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8990	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8992	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8993	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8994
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8995	(AbstractSourceCodeManager notNil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8996	and:[AbstractSourceCodeManager isLoaded not])
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8997	ifTrue:[AbstractSourceCodeManager autoload].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8998	repositoryHolder := '' asValue.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8999	rootsPerModule := Dictionary new
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9000	declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9001	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9002
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9003	postOpen
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	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9008	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9009	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9010	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9012	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9014	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9015	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9016	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9017
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9018	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9020	hasManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9021	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9022	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9023	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9025	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9027	^ (
4563 91c1ee6edf45 * empty log message * penk parents: 4541 diff changeset	9028	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9029	((self hasManager and:[self useManager value]) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9030	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9031	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9032	) or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9033	(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9034	CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9035	CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9036	(Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9037	]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9038	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9039	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9041	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9043	standardStyles
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9045	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9046	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9047	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9048	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9049	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9050	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9051	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9052	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9053	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9054	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9055	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9056
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9057	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9058
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9059	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9060	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9061	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9062
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9063	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9064	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9065
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9066	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9067	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9068	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9069	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9070	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9071
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9072	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9073
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9074	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9075	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9076	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	9077	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9078	@@@@@@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	9079	@ 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	9080	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	9081	@ 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	9082	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	9083	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9084
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9085	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9087	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9088	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9089	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9090
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9091	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9092	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9093
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9094	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9095	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9096	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9097	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9098	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9099
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9100	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9101
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9102	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9103	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9104	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9105	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9106	#(#WindowSpec
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9107	#label: 'ViewStyle Selection'
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9108	#name: 'ViewStyle Selection'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9109	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9110	#max: #(#Point 1024 768)
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9111	#bounds: #(#Rectangle 16 42 491 573)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9112	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9113	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9114	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9115	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9116	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9117	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9118	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9119	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9120	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9121	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9122	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9123	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9124	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9125	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9126	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9127	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9128	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9129	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9130	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9131	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9132	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9133	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9134	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9135	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9136	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9137	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9138	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9139	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9140	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9141	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9142	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9143	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9144	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9145	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9146	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9147	#hasVerticalScrollBar: true
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9148	#doubleClickSelector: #doubleClickAt:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9149	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9150	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9151	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9152	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9154	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9155	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9156	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9158	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9159
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9160	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9161
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9162	\| newStyle master requestor launcher\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9163
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9164	newStyle := self selectedStyle value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9165	master := self masterApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9166	master notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9167	requestor := master requestor.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9168	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9169
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9170	requestor notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9171	launcher := requestor.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9172	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9173	\| transcript \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9174	transcript := Transcript current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9175	transcript notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9176	\| app\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9177	app := transcript topView application.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9178	(app respondsTo:#reopenLauncher) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9179	launcher := app.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9180	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9181	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9182	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9183	self withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9184	Transcript showCR:'change style to ' , newStyle , ' ...'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9185	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9186	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9187	launcher notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9188	launcher reopenLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9189	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9190	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9191	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9192
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9193	doubleClickAt:aLine
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9194
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9195	self saveSettings.
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9196	!
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9197
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9198	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9199
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9200	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9201	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9202	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9203
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9204	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9205	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9206	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9208	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9209
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9210	infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9211
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9212	infoLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9213	infoLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9214	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9215	^ infoLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9216	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9217
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9218	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9220	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9221	noticeLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9222	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9223	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9224	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9226	selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9228	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9229	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9230	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9231	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9232	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9233	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9235	showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9237	showStandardStylesOnly isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9238	showStandardStylesOnly := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9239	showStandardStylesOnly addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9240	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9241	^ showStandardStylesOnly.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9242	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9243
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9244	styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9245
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9246	styleList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9247	styleList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9248	styleList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9249	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9250	^ styleList.
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	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9254
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9255	changeInfoLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9256
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9257	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9259	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9260	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9261	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9262	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9263	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9264	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9265	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9266	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9267	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9268	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9269	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9270	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9272	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9273	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9275	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9277	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9278	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9279	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9280	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9281	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9282	self changeInfoLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9283	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9284	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9285	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9286
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9287	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9288	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9289
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9290	updateList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9291
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9292	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9293
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9294	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9295	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9296	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9297	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9298	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9299	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9300	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9301	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9302	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9303	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9304
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9305	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9306	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9307	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9308	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9309
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9310	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9311
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9312	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9313	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9314	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9315	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9316	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9317
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9318	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9319	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9320	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9321	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9322
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9323	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9325	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9326	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9327	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9328
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9329	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9330
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9331	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9332
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9333	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9334
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9335	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9336	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9338	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9339	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9340	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9341	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9342	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9343	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9344	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9345	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9346	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9347	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	9348	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9349	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9350	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9351
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9352	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9353	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9354	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9355	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9357	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9358
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9359	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9360	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9363	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9368
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9371	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9374	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9375
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9376	emphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9377
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9378	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9379	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9380	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9381	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9382	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9383	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9384	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9385	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9386	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9387	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9388	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9389	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9390	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9391	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9392	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9393	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9394	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9395	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9396	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9397
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9398	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9399
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9400	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9401	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9402	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9403
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9404	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9405
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9406	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9407	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9408	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9409	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9410	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9411	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9412	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9413	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9414	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9415	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9416	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9417	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9418
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9419	fontList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9420
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9421	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9422	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9423	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9424	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9425	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9426	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9427	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9428	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9429	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9430	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9431	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9432	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9433	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9434	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9435	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9436	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9437	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9438	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9439	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9440
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9441	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9442
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9443	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9444	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9445	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9446
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9447	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9448	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9449
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9450	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9451	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9452	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9453	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9454	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9455
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9456	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9457
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9458	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9459	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9460	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	9461	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	9462	@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	9463	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	9464	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	9465	@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	9466	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	9467	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9468
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9469	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9470
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9471	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9472	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9473	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9474
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9475	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9476	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9477
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9478	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9479	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9480	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9481	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9482	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9483
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9484	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9485
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9486	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9487	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9488	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9489	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9490	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9491	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9492	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9493	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9494	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9495	#bounds: #(#Rectangle 16 42 711 651)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9496	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9497	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9498	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9499	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9500	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9501	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9502	#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	9503	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9504	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9505	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9506	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9507	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9508	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9509	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9510	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9511	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9512	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9513	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9514	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9515	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9516	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9517	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9518	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9519	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9520	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9521	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9522	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9523	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9524	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9525	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9526	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9527	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9528	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9529	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9530	#model: #fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9531	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9532	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9533	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9534	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9535	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9536	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9537	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9538	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9539	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9540	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9541	#extent: #(#Point 685 280)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9542	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9543	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9544	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9545	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9546	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9547	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9548	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9549	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9550	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9551	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9552	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9553	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9554	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9555	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9556	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9557
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9558	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9559	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9560	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9561	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9562	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9563	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9564	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9565	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9566	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9567	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9568	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9569	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9570	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9571	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9572	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9573	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9574	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9575	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9576	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9577	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9578	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9579	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9580	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9581	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9582
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9583	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9584	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9585	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9586	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9587	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9588	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9589	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9590	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9591	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9592	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9593	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9594	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9595	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9596	#labelsAreColored: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9597	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9598	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9599	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9600	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9601	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9602	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9603	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9604	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9605	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9606
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9607	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9608	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9609	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9610	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9611	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9612	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9613	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9614	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9615	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9616	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9617	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9618	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9619	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9620	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9621	#enableChannel: #syntaxColoring
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	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9624	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9625	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9626	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9627	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9628	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9629	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9630	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9631	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9632
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9633	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9634	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9635	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9636	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9637
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9638	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9639	#extent: #(#Point 695 609)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9640	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9641	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9642
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	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9648	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9649	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9652
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9653	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9654
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9655	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9656	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9657	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9658	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9659
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9660	formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9661	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9662
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9663	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9664	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9665	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9666
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9667	"action to be added ..."
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	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9670	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9671
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9672	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9673
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9674	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9675	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9676	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9677
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9678	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9679	\|colorList resetListLoc\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9680
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9681	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9682	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9683	reset;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9684	current) declareAllFrom:oldUserPreferences
4398 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	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9687	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9688	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9689	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9690	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9691	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9692	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9693	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9694	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9695	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9696	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9697	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9698	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9699
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9700	recolor
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	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9703
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9704	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9705	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9706	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9707	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9708	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9709	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9710	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9711
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9712	resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9713
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9714	\|resetSelector\|
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	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9717	currentUserPrefs perform:resetSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9718	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9719	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9720	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9721
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9722	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9723
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9724	coloredText
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	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9727	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9728	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9729	^ coloredText.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9732	fullSelectorCheck
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	fullSelectorCheck isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9735	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736	fullSelectorCheck onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738	^ fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9739	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741	resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9742
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	"/ 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	9746	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9755	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9756	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9757	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9758	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9759
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9760	syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9761
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9762	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769	syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	syntaxColoring addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774	syntaxColoring onChangeSend:#evaluateModified to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9775	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9776	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9777	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9778
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9784	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9785	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9786
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9787	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9788	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9789	"/ 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	9790	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
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	^ syntaxElementSelection.
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	syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9813
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	syntaxEmphasisList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9815	syntaxEmphasisList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9816	"/ 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	9817	"/ syntaxEmphasisList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9818	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9819	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	^ syntaxEmphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9822
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9823	syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9824
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9826	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9827	syntaxEmphasisSelection addDependent:self.
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	^ syntaxEmphasisSelection.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9832	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9833
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9834	getEmphasis:anEmphasisOrSymbol
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9835	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9838	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840	syntaxColorChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9841
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9842	currentUserPrefs at:(self syntaxColorSelector value) put:(self syntaxColor value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9843	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9844	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9845	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9846
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9847	syntaxElementSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9849	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9850
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9851	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9852	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9853	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9855	!
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	syntaxEmphasisSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9862	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9863	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9865	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9866
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9867	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9868	"Invoked when an object that I depend upon sends a change notification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9869
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9870	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9871
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9872	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9873	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9874	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9875	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9876	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9877	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9878	^ self.
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	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9882	^ self.
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	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9885	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9886	^ self.
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	super update:something with:aParameter from:changedObject
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
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	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9896	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9897	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9898
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9899	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9900	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9901	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9902	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9903	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9904
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9905	initializeEmphasisDictionary
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9906
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9907	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9908	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9909	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9910	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9911	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9912	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9913	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9914	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9915	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9916	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9917	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9918	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	9919	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	9920	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9921	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9922	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	9923	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	9924	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9925	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9926	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	9927	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	9928	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9929	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9930	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	9931	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	9932	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9933	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9934	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9935	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9936	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9937	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9938	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9939	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9940	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9941	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9942
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9943	release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9944
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9945	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9946	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9947	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9948	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9949	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9950
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9951	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9952
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9953	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9954
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9955	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9956
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9957	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9958	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9959	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9960	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9961	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9962	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9963	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9964	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9965	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9966	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9967	syntaxElement
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	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9970	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9971	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9972	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9973
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9974	syntaxColorSelector
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	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
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	syntaxColorSelectorForElement:aSyntaxElement
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	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9982	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9983
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9984	syntaxEmphasisSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9985
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9986	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9989	syntaxEmphasisSelectorForElement:anEmElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9990
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9992	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9993
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9994	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9995
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9996	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9997	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9998	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9999
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10000	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10001	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10002
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10003	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10004	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10005	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10006	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10007	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10008
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10009	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10010
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10011	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10012	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10013	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	10014	@@@@@@@@@@@@A XFA @@@@@@@@@@@@@@@@@@@@@@A!!HRCPX@@@@@@@@@@@@@@@@@@@@@A!!H.KP4MA @@@@@@@@@@@@@@@@@@@@XRPB<#H0L@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10015	@@@@@@@FD$@/H2LC@@@@@@@@@@@@@@@@@@@@A!!H6LRH"@P@@@@@@@@@@@@@@@@@@@@XFC#LKB0D@@@@@@@@@@@@@@@@@@@@@@@XZ@PD@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10016	@@@@@@@FF DA@@@@@@@@@@@@@@@@@@@@@@@@A!!(A@P@@@@@@@@@@@@@@@@@@@@\GA3@ZDQDAAPT@@@@@@@@@@@@@@@\;QDP''EQ@PE@$IAP@@@@@@@@@@@@@G
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10017	N4QDI1TPDAPIBPT@@@@@@@@@@@@@A31CP3(UJ"( B (D@@@@@@@@@@@@@@\>Q4\8IR0,J1@PA@@@@@@@@@@@@@@GO$]GNBT,KB,PD@P@@@@@@@@@@@@@A35H
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10018	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	10019	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	10020	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10021
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10022	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10024	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10025	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10026	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10027
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10028	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10029	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10030
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10031	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10032	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10033	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10034	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10035	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10036
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10037	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10039	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10040	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10041	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10042	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10043	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10044	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10045	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10046	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10047	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10048	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10049	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10050	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10051	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10052	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10053	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10054	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10055	#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	10056	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10057	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10059	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10060	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10061	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10062	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10063	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10064	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10065	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10066	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10067	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10068	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10069	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10070	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10071	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10073	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10074	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10075	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10076	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10077	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10078	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10079	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10080	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10081	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10082	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10083	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10084	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10085	#translateLabel: true
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	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10088	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10089	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10090	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10091	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10092	#translateLabel: true
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	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10095	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10097	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10098	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10099	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10100	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10101	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10102	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10103	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10104	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10105	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10106	#translateLabel: true
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10109
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10110	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10111	#extent: #(#Point 551 133)
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	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10114	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10115	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10116	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10117	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10118	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10119	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10120	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10122	#label: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10123	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10125	#model: #updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10126	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10127	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10128	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10129	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10130	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10131	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10132	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10133	#translateLabel: true
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	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10136	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10137	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10138	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10139	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10140	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10141	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10142	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10143	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10144	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10145	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10146	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10147	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10148	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10149	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10150	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10151	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10152	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10153
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10154	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10155	#extent: #(#Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10156	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10157	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10158
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10159	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10160	#extent: #(#Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10161	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10162	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10163
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10164	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10165	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10166	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10167
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10168	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10169	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10170	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10172	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10173
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10174	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10175
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10176	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10177	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10178	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10179	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10180	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10181	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10182	Class updateChanges:self updChanges value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10183	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10184
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10185	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10186
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10187	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10188	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10189
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10190	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10191	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10192	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10193	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10194	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10195	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10196	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10197	self updChanges value:Class updatingChanges.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10198	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10199	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10201	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10202
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10203	changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10204
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10205	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10206	changeFileName := ObjectMemory nameForChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10207	changeFileName onChangeSend:#evaluateModified to:self
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	^ changeFileName.
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10212	classInfos
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10213
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10214	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10215	classInfos := Object infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10216	classInfos onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10217	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10218	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10219	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10221	displayErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10223	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10224	displayErrors := DeviceWorkstation errorPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10225	displayErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10226	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10227	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10228	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10229
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10230	logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10231
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10232	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10233	logDoits := Smalltalk logDoits asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10234	logDoits onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10235	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10236	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10237	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10238
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10239	updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10240
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10241	updChanges isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10242	updChanges := Class updatingChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10243	updChanges onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10244	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10245	^ updChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10246	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10247
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10248	vmErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10249
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10250	vmErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10251	vmErrors := ObjectMemory debugPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10252	vmErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10253	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10254	^ vmErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10255	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10256
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10257	vmInfo
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10259	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10260	vmInfo := ObjectMemory infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10261	vmInfo onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10262	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10263	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10264	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10266	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10268	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10269
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10270	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10271	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10272	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10273
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10274	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10276	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10277
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10278	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10279	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10280	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10281	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10282	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10283	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10284	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10285	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10286
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10287	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10288
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10289	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10290	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10291	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10292
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10293	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10294	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10295
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10296	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10297	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10298	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10299	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10300	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10301
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10302	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10303
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10304	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10305	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10306	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	10307	@ 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	10308	@@@@@@@D@ XFA @@@@@@@@@@@@HB@@@@@@@@@@HC@ XFA @@@@@@@@@B@ @@@@@@@@@@@@\BCPXF@@@@@@@@@ H@@@@RB @@@@@@@ <MA @@@@@@@@HB@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10309	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	10310	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	10311	@@@@@@@@@@@@D 4@@@HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10312	@ 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	10313	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10314
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10315	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10316
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10317	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10318	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10319	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10321	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10322	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10323
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10324	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10325	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10326	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10327	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10328	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10330	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10332	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10333	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10334	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10335	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10336	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10337	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10338	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10339	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10340	#max: #(#Point 1024 768)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10341	#bounds: #(#Rectangle 16 42 511 513)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10342	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10343	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10344	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10345	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10346	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10347	#name: 'VerticalPanel2'
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10348	#layout: #(#LayoutFrame 0 0 0 0 358 0 234 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10349	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10350	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10351	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10352	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10353	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10354	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10355	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10356	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10357	#label: 'Use the New Changes Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10358	#name: 'ChangesBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10359	#model: #useNewChangesBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10360	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10361	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10362	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10363	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10364	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10365	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10366	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10367	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10368	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10369	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10370	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10371	#label: 'Use the New VersionDiff Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10372	#name: 'VersionDiffBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10373	#model: #useNewVersionDiffBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10374	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10375	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10376	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10377	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10378	#label: 'Use the New File Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10379	#name: 'NewFileBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10380	#model: #useNewFileBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10381	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10382	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10383	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10384	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10385	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10386	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10387	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10388	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10389	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10390	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10391	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10392	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10393	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10394	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10395	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10396	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10397	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10398	#(#CheckBoxSpec
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10399	#label: 'Use the New Process Monitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10400	#name: 'UseNewProcessMonitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10401	#model: #useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10402	#translateLabel: true
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10403	#extent: #(#Point 489 25)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10404	)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10405	#(#CheckBoxSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10406	#label: 'Use Hierarchical Inspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10407	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10408	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10409	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10410	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10411	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10412	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10413	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10414	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10415	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10416	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10417	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10418	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10419	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10420	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10421	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10422	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10423	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10424	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10425	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10426	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10427	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10428	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10429	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10430	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10431	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10432	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10433	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10434	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10435	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10436	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10437	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10438	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10439	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10440	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10441	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10442	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10443
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10444	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10445	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10446	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10447	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10448
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10449	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10450	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10451	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10452	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10453
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10454	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10455	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10456	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10457
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10458	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10459
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10460	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10461
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10462	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10463
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10464	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10465	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10466	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10467	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10468	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10469	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10470	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10471	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10472	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10473	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10474	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10475	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10476	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10477	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10478	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10479	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10480	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10481	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10482	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10483	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10484	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10485	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10486	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10487	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10488	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10489	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10490	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10491	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10492	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10493	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10494	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10495	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10496	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10497	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10498	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10499	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10500	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10501	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10502	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10503	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10504	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10505	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10506	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10507
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10508	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10509
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10510	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10511	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10512
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10513	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10514	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10515	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10516	self transcriptBufferSize value:Transcript current lineLimit.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10517	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10518	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10519	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10520	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10521	self useNewVersionDiffBrowser
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10522	value:currentUserPrefs useNewVersionDiffBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10523	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10524	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10525	self useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10526	value:currentUserPrefs useNewSettingsApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10527	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10528	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10530	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10532	showClockInLauncher
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10534	showClockInLauncher isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10535	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10536	showClockInLauncher onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10537	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10538	^ showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10539	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10541	transcriptBufferSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10543	transcriptBufferSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10544	transcriptBufferSize := Transcript current lineLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10545	transcriptBufferSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10546	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10547	^ transcriptBufferSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10548	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10550	useNewChangesBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10552	useNewChangesBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10553	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10554	useNewChangesBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10555	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10556	^ useNewChangesBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10557	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10559	useNewFileBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10561	useNewFileBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10562	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10563	useNewFileBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10564	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10565	^ useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10567
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10568	useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10569
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10570	useNewFileDialog isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10571	useNewFileDialog := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10572	useNewFileDialog onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10573	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10574	^ useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10575	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10576
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10577	useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10579	useNewInspector isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10580	useNewInspector := currentUserPrefs useNewInspector asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10581	useNewInspector onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10582	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10583	^ useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10584	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10585
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10586	useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10587
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10588	useNewSettingsApplication isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10589	useNewSettingsApplication := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10590	useNewSettingsApplication onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10591	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10592	^ useNewSettingsApplication.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10593	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10594
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10595	useNewSystemBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10597	useNewSystemBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10598	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10599	useNewSystemBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10600	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10601	^ useNewSystemBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10602	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10604	useNewVersionDiffBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10606	useNewVersionDiffBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10607	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10608	useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10610	^ useNewVersionDiffBrowser.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10611	!
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10612
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10613	useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10614
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10615	useProcessMonitorV2 isNil ifTrue:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10616	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10617	useProcessMonitorV2 onChangeSend:#evaluateModified to:self
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10618	].
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10619	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10620	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10622	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10624	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10626	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10627	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10628	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10629	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10630	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10631	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10632	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10633	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10634	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10635	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10636	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10637
4226 44e2f83cc526 initial checkin penk parents: diff changeset	10638	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	10639
44e2f83cc526 initial checkin penk parents: diff changeset	10640	version
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10641	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.38 2003-03-18 11:27:18 cg Exp $'
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	10642	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 18 Mar 2003 12:27:18 +0100
changeset 4675	40c7fa2ca3e5
parent 4658	6d7e1c4d324f
child 4705	16cfb945d591
permissions	-rw-r--r--