hg/stx-libtool: AbstractSettingsApplication.st@d61fec7a9e4f (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
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	238	saveRequest
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	239	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	240
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	241	(self hasUnsavedChanges) ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	242	result := self confirmWithCancel:(resources
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	243	string:'Save changed ' , settingsString , ' ?').
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	244	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	245	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	246	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	247	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	248	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	249	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	250	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	251	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	252	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	253	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	254	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	255
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	256	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	257	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	258	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	259	self modifiedChannel value:false
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	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	262
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	263	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	264
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	265	modifiedChannel
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	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	268	modifiedChannel := false asValue.
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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	273	!AbstractSettingsApplication methodsFor:'initialization'!
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	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	276	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	277	resources := self class classResources.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	278	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	279	settingsString := (UISpecification from:(self class windowSpec)) window label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	280	self readSettings.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	281	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	282
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	283	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	284
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	285	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	286
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	287	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	288	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	289
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	290	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	291
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	292	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	293	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	294
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	295	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	296
289972d3e455 * empty log message * penk parents: 4319 diff changeset	297	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	298	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	299	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	300	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	301
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	302	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	303	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	304	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	305
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	306	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	307
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	308	self basicSaveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	309	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	310	! !
44e2f83cc526 initial checkin penk parents: diff changeset	311
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	312	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	313
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	314	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	315
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	316	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	317	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	318
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	319	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	321	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	322	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	323
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	324	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	325
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	326	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	327	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	328	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	329
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	330	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	331	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	332
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	333	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	334	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	335	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	336	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	337	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	338
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	339	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	340
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	341	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	342	constantNamed:#'AbstractSettingsApplication::CompilerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	343	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	344	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	345	@@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	346	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	347	@@@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	348	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	349	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	350	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	351
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	352	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	354	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	355	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	356	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	358	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	359	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	360
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	361	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	362	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	363	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	364	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	365	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	367	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	368
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	369	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	370	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	371	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	372	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	373	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	374	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	375	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	376	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	377	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	378	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	379	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	380	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	381	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	382	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	383	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	384	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	385	#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	386	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	387	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	388	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	389	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	390	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	391	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	392	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	393	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	394	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	395	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	396	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	397	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	398	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	399	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	400	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	401	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	402	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	403	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	404	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	405	#label: 'Allow Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	406	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	407	#model: #allowUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	408	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	409	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	410	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	411	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	412	#label: 'Allow Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	413	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	414	#model: #allowDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	415	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	416	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	417	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	418	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	419	#label: 'Allow VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	420	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	421	#model: #allowQualifiedNames
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	422	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	423	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	424	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	425	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	426	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	427	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	428	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	429	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	430	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	431	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	432	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	433	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	434	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	436	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	437	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	438	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	439	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	440	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#model: #allowOldStyleAssignment
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	443	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	444	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	445	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	446	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	#label: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	450	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	451	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	452	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	453	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	480	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	484	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	#model: #warnUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	498	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	499	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	500	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	501	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	513	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	514	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	515	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	516	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	524	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	525	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	526	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	527	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	528	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	529	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	530	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	531	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	533	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	534	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	535	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	536
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	537	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	538	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	539	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	540
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	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	543	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	544	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	545	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	546	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	547	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	548	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	549	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	550	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	551	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	552	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	553	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	554	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	555	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	556	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	557	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	558	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	559	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	560	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	561	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	562	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	563	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	564	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	565	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	566	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	567	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	568	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	569	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	570	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	571	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	572	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	573	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	574	#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	575	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	576	#adjust: #right
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	577	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	578	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	579	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	580	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	581	#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	582	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	583	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	584	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	585	#useIndex: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	586	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	587	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	588
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	589	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	590	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	591	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	592	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	593
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	594	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	595	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	596	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	598	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	599	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	600	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	601
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	602	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	603
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	604	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	606	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	607	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	608	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	609	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	610	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	611	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	612	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	613	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	614	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	615	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	616	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	617	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	618	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	619	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	620	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	622	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	623	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	624	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	625	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	626	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	627	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	629	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	631	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	632	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	633	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	634	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	635	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	637	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	638	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	639	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	640	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	641
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	642	evaluateModified
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	643
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	644	self modifiedChannel value:(self hasUnsavedChanges).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	645	!
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	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	648
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	649	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	650	!
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	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	653	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	654	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	655	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	656	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	657	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	658	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	659	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	660	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	661	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	662	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	663	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	664	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	665	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	666	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	667	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	668	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	669	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	670	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	671	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	672	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	673	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	674	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	675	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	676	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	677	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	678	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	679	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	680	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	681	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	682	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	683	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	684	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	685	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	686	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	687	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	688	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	690	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	692	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	693	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	694
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	695	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	697	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	699	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	700	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	701	allowDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	702	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	703	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	704	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	705	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	707	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	709	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	710	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	711	allowDolphinExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	712	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	713	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	714	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	715
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	716	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	717
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	718	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	719	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	720	allowOldStyleAssignment onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	721	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	722	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	723	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	725	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	726
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	727	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	728	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	729	allowQualifiedNames onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	730	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738	allowReservedWordsAsSelectors onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747	allowSqueakExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756	allowUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	772	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	773	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	781	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	782	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783	constantFoldingSelection := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784	constantFoldingSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	790
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	792	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823	fullDebugSupport onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832	immutableArrays onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	840	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	841	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	842	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	justInTimeCompilation onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	850	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	warnCommonMistakes onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	859	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	warnCompatibility onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	^ warnCompatibility.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	867
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	868	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	869
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	warnDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881	warnOldStyle onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890	warnSTX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899	warnUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908	warnUnusedVars onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919	warnings onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	924	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	changedObject == self warnings ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	self warnings value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	949	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952
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	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	973	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	977
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	981	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	982
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	983	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	984	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	985
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	986	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	987	! !
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	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	990
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	991	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	992	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	993	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	994
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	995	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	996	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	997
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	998	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	999	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1000	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1001	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1002	"
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	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1005
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	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1008	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1009	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1010	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1011	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1012	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1013	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1014	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1015	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1016	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1017	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1018	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1019	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1020	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1021	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1022	#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	1023	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1024	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1025	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1026	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1027	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1028	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1029	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1030	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031	#name: 'VerticalPanel5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1034	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1035	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1039	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1040	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1044	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1045	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1046	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1049	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1050	)
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	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1055	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1056	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1057	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1058	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1059	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1061	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1062	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	)
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	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1078	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1079	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1080	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1081	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1082	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1083	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1084	)
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	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1090	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1091
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1092	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1093	#extent: #(#Point 600 320)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1096
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	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1107	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1108
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1109	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1110	self showErrorNotifier value ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1111	Exception emergencyHandler:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1112	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1113	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1114	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1115	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1116	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1117
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1118	evaluateModified
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1120	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1122
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1123	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1124
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1125	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1126	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1127	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1128
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1129	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1130	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1131	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1132	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1133	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1134	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1135	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1136	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1137
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1138	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1139
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1140	allowSendMailFromDebugger
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 isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1143	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1144	allowSendMailFromDebugger onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1145	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1146	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1147	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1148
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1149	showErrorNotifier
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 isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1152	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1153	showErrorNotifier onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1154	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1155	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1156	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1157
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1158	showVerboseStack
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 isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1161	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1162	showVerboseStack onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1163	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1164	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1165	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1166
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1167	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1168
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1169	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1170	"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	1171
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172	"stub code automatically generated - please change as required"
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	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1175	"/ ^ self.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1178	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1179	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1180
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1181	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1182
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1183	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1184
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1185	^ (
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1186	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1187	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1188	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1189	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1190	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1191	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1192
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1193	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1194
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1195	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1196
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1197	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1198	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1199
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1200	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1201
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1202	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1203	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1204
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1205	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1206
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1207	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1208	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1209
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1210	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1211
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1212	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1222	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1225	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1226
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1227	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1228	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1229	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1230
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1231	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1232	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1233
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1234	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1235	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1236	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1237	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1238	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1239
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1240	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1241
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1242	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1243	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1244	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	1245	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246	@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	1247	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	1248	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	1249	ER ''I2\''EQTUEQTUEP@@@@@@@@@@@@@(I2\''I1TU@@@@@@@@@@@@@@@@JB\''I2\''I2\''I2\U@@@@@@@@@@@@@B ''I2\''I2\''I2\''EP@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1250	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	1251	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1252
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1253	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1254
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1255	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1256	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1257	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1259	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1260	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1261
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1262	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1263	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1264	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1265	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1266	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1268	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1270	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1271	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1272	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1274	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1279	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1281	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1282	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1283	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1284	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	#label: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	#name: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	#model: #sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1319	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	#acceptOnLostFocus: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	#acceptOnPointerLeave: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	#label: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1329	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	#acceptOnLostFocus: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	#acceptOnPointerLeave: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1350	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	#labelChannel: #useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	#label: 'Use Fix Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1445
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1446	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1447
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1448	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1449
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1450	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1451	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1452	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1453	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1454	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1455	Color getColorsRed:4 green:8 blue:4 on:screen
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	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1458	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1459	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1460
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1461	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1462	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1463	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1464	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1465	Color getGrayColors:32 on:screen
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	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1468	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1469	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1470	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1471	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1472	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1473	screen heightInMillimeter:self sizeY 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	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1476	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1477	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
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	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1481	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1482	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1483
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1484	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1485	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1486
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1487	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1489	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1490	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1492	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1493
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1494	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1495	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1496	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1497
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1498	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1499	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1500	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1501	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1502	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1503	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1504	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1506	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1507	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1508	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1509	self clipEncodingListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1510	value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1511	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1512	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1515	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1517	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1519	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1520	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1521	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1522	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1523	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1524	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1525	^ clipEncodingList.
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	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	clipEncodingListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	^ clipEncodingListSelection.
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	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540	deepIcons := screen supportsDeepIcons asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541	deepIcons onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1548	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	ditherListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	^ ditherSymsNotNil.
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	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578	isColorMonitor := screen hasColors asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	isColorMonitor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596	monitorSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597	monitorSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	sizeX changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	sizeX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	sizeY changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	sizeY onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	^ sizeY.
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	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	useFixGrayPalette := screen fixGrayColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	useFixGrayPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	^ useFixGrayPaletteLabel.
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	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	useFixPalette := screen fixColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	useFixPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	^ useFixPaletteLabel.
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	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674	visualIsPseudoColor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1729
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1731
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1732	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1755	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1756
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1794	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1795
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1796	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1797	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1798	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1799
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1800	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1801	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1802
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1803	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1804	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1805	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1806	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1807	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1808
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1809	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1810
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1811	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1812	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1813	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1814	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1815	@@(JBP$IBP$FBP$IBP$IAPTE@0L@@@@JB $IBP$IA $IBP$IBPTEAPLC@@@@B (FA XFA XFA XFA TE@0LC@0@@@@(JBP$IBP$FBP$IAPTE@0LC@0P@@@@J
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1816	B $IBP$IA $IAPTE@0LC@0PK@@@@B (IBP$IBPXIBPTEAPLC@0LDB0@@@@(JA XFA XFA TH@0LC@0PD@ @@@@@JB $IBP$I@@ HB@LC@0PB@ @@@@@@B (I
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1817	BP$IBPXHB@ HB@ K@PD@@@@@@@(JA XFA @HB@ HB@ F@@DA@@@@@@@JB XFA X@B@ HB@ FA @A@P@@@@@@B (IBP$I@P HB@XFA (I@PD@@@@@@@(JBP$I
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1818	@PHKA XJBP$IBPDA@@@@@@@JB @@@@D@@@@@@@@@@@@A@P@@@@@@B (@@@D@@@@@@@@@@@@@@PD@@@@@@@(JBP$IBP$@BP$IBP$IBPDA@@@@@@HA@PDA@PDA
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1819	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[160 160 160 0 0 0 48 48 48 255 128 0 192 88 0 255 168 88 195 195 195 88 88 88 255 220 168 255 255 255 220 220 220 64 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@G??LG??<G??<G??<G??<G??<G??<G??<G??8G??0G??0G??0G??0G??0G??0G??0G??0G??0O??0@@@@') ; yourself); yourself]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1820	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1821
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1822	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1824	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1825	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1826	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1832	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1833	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1834	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1844	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1845	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1848	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1855	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1860	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866	#verticalLayout: #top
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1910	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1916	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1918	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1919	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1924	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1925
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1926	UserPreferences current st80EditMode:(self st80EditingMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1927	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1928	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1929	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1930	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1931	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1932	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1933	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1934	UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1935	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1936	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1937
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1938	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1939
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1940	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1941	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1942
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1943	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1944
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1945	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1946	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1947	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1948
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1949	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1950	self st80EditingMode value:UserPreferences current st80EditMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1951	self st80DoubleClickSelectMode value:TextView st80SelectMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1952	self tabsIs4
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1953	value:(ListView userDefaultTabPositions = ListView tab4Positions).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1954	self searchDialogIsModal
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1955	value:UserPreferences current searchDialogIsModal.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1956	self startTextDragWithControl
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1957	value:UserPreferences current startTextDragWithControl.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1958	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1959	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1961	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966	searchDialogIsModal := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1967	searchDialogIsModal onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975	st80DoubleClickSelectMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1976	st80DoubleClickSelectMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984	st80EditingMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985	st80EditingMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993	startTextDragWithControl := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	startTextDragWithControl onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	tabsIs4 := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	tabsIs4 onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	^ tabsIs4.
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:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	"/ ^ self.
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	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036	^ super postOpenWith:aBuilder
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	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2054	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2055
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2056	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2057
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2058	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2059	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2060	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2061	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2062	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2063	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2064	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2065	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2066	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2067
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2068	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2070	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2071	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2072	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2073
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2074	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2075	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2076
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2079	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2080	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2081	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2082
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2083	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2084
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2085	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2086	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2087	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	2088	@@@@@@@@@@@@@@@@@@@@@!!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	2089	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	2090	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	2091	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2093	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2094	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2095	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2096
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2097	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2098	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2099
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	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2102	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2103	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2104	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2105
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2106	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2107
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2108	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2109	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2110	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	2111	@@@@@@@@@@@@@@@@@@@@@!!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	2112	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	2113	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	2114	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2115
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2116	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2118	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2120	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2121
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2122	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2123	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2124	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2125	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2126	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2127
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2134	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2135	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2138	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2139	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2140	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2141	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2142
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2143	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2145	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2146	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2147	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2148	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2149	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2150	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2151	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2152	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2153	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2154	#bounds: #(#Rectangle 16 42 512 654)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2155	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2156	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2157	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2158	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2159	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2160	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2161	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2162	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2163	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2164	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2165	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2166	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2167	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2168	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2169	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2170	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2171	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2172	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2173	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2174	#(#LabelSpec
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2175	#label: 'All (Others)'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2176	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2177	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2178	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2179	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2180	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2181	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2182	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2183	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2184	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2185	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2186	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2187	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2188	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2189	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2191	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2192	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2193	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2194	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2195	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2196	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2197	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2199	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2200	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2201	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2202	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2203
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2206	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2207	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2208	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2209	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2210	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2211	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2212	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2213	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2216	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2217	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2218	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2241
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2244	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2245	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2246	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2250	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2253	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2254	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2255	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2256	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2257	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2258	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2260	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2261	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2262	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2263	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2264	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2265	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2266	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2267	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2268	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2277	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2278	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2279
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2280	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2282	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2283	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2284	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2285	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2297	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2302	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2303	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2306	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2307	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2312	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2313	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2314	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2315	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2320	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2321	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2322	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2323	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2324	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2355
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2364	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2371	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2372	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2373	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2374	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2375	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2376	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2377	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2378	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2379	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2380	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2381	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2382	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2383	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2384	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2385	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2386	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2387	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2388	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2389	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2390	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2391	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2392	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2393
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2394	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2395	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2396	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2397	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2398
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2399	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2400	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2401	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2402
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2403	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2404	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2405	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2406
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2407	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2409	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2411	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2412	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2413	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2414	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2415	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2417	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2418
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2419	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2420
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2421	\| master requestor\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2422
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2423	master := self masterApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2424	master notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2425	requestor := master requestor.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2426	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2427
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2428	Label defaultFont:self labelDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2429	Button defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2430	Toggle defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2431	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2432	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2433	MenuView defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2434	PullDownMenu defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2435	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2436
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2437	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	self allOfThem value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446	self labelDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	self buttonDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	self listDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449	self menuDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450	self textDef value:f.
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2461	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463	self allOfThem value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2468	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2469
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2470	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2471	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2472	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2473	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475	self labelDef value:f.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2476	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2479	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2482	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2483	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2484	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2485	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	self listDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2489	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2494	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2496	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	self menuDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511	self textDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2526	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2533	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2546	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2547	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2550	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2556	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568	buttonsFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	buttonsFontLabelHolder := Button defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586	labelsFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	labelsFontLabelHolder := Label defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	listsFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605	listsFontLabelHolder := SelectionInListView defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2622	menusFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2623	menusFontLabelHolder := MenuView defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2624	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2626	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2628	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2629	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2631	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2632	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2633	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2634	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2635	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2636	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2638	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2640	textFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2641	textFontLabelHolder := TextView defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2642	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2643	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2644	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2648	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2649	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2652
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2653	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2654	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2655	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2656	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2657	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2658	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2659	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2660	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2661	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2662	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2663	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2664	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2665	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2666	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2667	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2668	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2670	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2671	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2672	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2673	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2674	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2675	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2676	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2678	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2680	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2681
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2682	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2683	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2684	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2685	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2686	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2687	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2688	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2689	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2690
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2691	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2692	\| f label\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2693
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2694	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2695
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2696	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2697	label := f isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2698	''
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2699	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2700	f userFriendlyName
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2701	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2702	fontNameHolder value:label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2703	self evaluateModified.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2721	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2723	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2725	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2726	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2728	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2730	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2735	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2736	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2737
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2738	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2739	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2740	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2741	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2742	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2743
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2744	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2745
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2746	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2748	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2749	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2750	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2751	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2752	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2753	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2754
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2755	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
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	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2758
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2759	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2760	!
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	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2763
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2764	^ #('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	2765	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2766
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2767	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2768
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2769	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2770	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2771	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2772
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2773	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2774	the ImageEditor may not be able to read the specification."
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	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2777	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2778	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2779	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2780	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2781
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2782	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2783
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2784	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2786	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	2787	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2788	@@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	2789	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	2790	@@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	2791	@@@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	2792	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	2793	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2794
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2795	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2796
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	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2799	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2800
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2801	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	the UIPainter may not be able to read the specification."
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	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2805	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2806	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2807	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2808	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2810	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2812	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2813	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2814	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2817	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2819	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2820	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2821	#bounds: #(#Rectangle 16 42 616 362)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2822	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2823	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2824	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2825	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2826	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2827	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2828	#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	2829	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2830	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2831	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2832	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2833	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2834	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2835	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2836	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2837	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2838	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2839	#model: #catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2841	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2842	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2843	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2844	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2845	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2846	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2847	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2848	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2849	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2850	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2851	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2852	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2853	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2854	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2855	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2857	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2858	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2861	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2862	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2863	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2864	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2865	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2866	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2867	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2868	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2869	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2870	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2871	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2872	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2873	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2874	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2875	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2876	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2877	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2878	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2879	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2880	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2881	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2882	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2883	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2884	#adjust: #right
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	#extent: #(#Point 600 30)
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	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2892	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2893	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2894	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2895	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2896	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2897	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2898	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2899	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2900	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2901	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2902	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2903	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2905	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2906	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2907	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2908
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2909	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2910	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2911	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2912
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2913	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2914
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2915	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2916
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2917	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2918	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2919	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2920	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2921	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2922	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2923	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2924	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2925	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2926	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2927	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2928	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2929	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2930
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	evaluateModified
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2933	self modifiedChannel value:(self hasUnsavedChanges).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2934	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2935
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2936	help
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	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2939	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2941
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2942	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2943	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2944	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2945	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2946	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2948	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2949	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2950	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2953	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2954	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2955	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2956	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2957	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2958	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2959	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2960	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2961
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2964	canLoadBinaries
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	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2967	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2968	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2970	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2971
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972	catchClassRedefs
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	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2975	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2976	catchClassRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2977	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2979	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2980
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2981	catchMethodRedefs
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	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985	catchMethodRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2986	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2987	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2988	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2989
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2990	fullHistoryUpdate
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	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2995	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2996	fullHistoryUpdate := false asValue.
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	fullHistoryUpdate onChangeSend:#evaluateModified to:self.
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	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3001	!
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	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3005	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	historyLines
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	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	historyLines := self hasHistoryManager asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	historyLines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3014	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3015	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3016
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3017	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3018
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3019	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3020	keepSource := (resources array:(self class keepSourceStrings)) asList.
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	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3023	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3024
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3025	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3026
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3027	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3028	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3029	keepSourceSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3030	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3031	^ keepSourceSelection.
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	loadBinaries
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	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3037	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3038	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3039	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3040	loadBinaries:= false asValue
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	loadBinaries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3043	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3044	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3045	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3046
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3047	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'change & update'!
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	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3050	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3051
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3052	"stub code automatically generated - please change as required"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3053
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3054	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3055	"/ ^ self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3056	"/ ].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3057
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3058	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3059	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3060
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3061	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3062
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3063	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3064
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3065	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3066	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3067	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3068	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3069	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3070	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3071	((self hasHistoryManager) ~= self historyLines value)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3072	]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3073	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3074	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3075
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3076	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3077
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3078	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3079	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3080	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3081
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3082	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3083	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3084
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3085	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3086	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3087	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3088	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3089	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3090
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3091	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3092
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3093	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3094	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3095	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	3096	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3097	@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@@@@@@@HBA@PD@@@@@@@@@@@@@@@@@@@@@@HBA@PDA@P@@@@@@@@@@@@@@@@@@@HBA@PD@@@DA@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3098	@@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	3099	@ HDA@PDA@LC@0@@@@@@@@@@@@@@@@HB@ PDA@LC@0@@@@@@@@@@@@@@@@@@@ HBA@LC@0@@@@@@@@@@@@@@@@@@@@@B@ PC@0@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3100	@@HD@0@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3101	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3102	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3103
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3104	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3105
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3106	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3107	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3108	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3109
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3110	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3111	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3113	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3114	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3115	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3116	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3117	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3118
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3119	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3121	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3122	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3123	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3124	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3125	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3126	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3127	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3128	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3129	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3130	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3131	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3132	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3133	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3134	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3135	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3136	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3137	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3138	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3140	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3146	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3147	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3148	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3149	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3150	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3151	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3153	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3154	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3155	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3156	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3160	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3161	)
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	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3166	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3168	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3169	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3170	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3171	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3172	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3173	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3174	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3175	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3176	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3177	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3178	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3179	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3180	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3181	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3182	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3183	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3184	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3185	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3186	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3187	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3188
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3189	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3190	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3191	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3192
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3193	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3194	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3195	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3196	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3197	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3198	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3199	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3200	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3201	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3202	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3203	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3204	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3205	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3206
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3207	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3208	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3209	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3211	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3212
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3213	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3214	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3215
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3216	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3217
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3218	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3219	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3221	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3223	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3224	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3225
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3226	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3227	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3228	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3229
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3230	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3231
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3232	functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3233	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3235	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3236	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3237	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3238	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3240	functionKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3241	functionKeyList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3242	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3243	"/ functionKeyList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3244	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3245	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3246	^ functionKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3247	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3248
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3249	labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3250	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3251
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3252	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3253	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3254	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3255	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3256
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3257	labelTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3258	labelTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3259	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3260	"/ labelTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3261	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3262	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3263	^ labelTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3264	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3266	macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3267	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3268
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3269	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3270	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3271	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3272	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3273
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3274	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3275	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3276	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3277	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3278	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3279	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3280	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3281	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3283	rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3284
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3285	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3286	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3287	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3288	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3289	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3290
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3291	selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3293	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3294	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3295	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3296	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3297	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3298	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3299
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3300	selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3301
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3302	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3303	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3304	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3305	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3306	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3307	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3308
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3309	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3310
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3311	changeFunctionKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3312
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3313	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3314	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3315	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3316	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3317
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3318	changeMacroText
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3319
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3320	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3321
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3322	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3323	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3324	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3325	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3326	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3327	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3328	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3329	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3330	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3331	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3332	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3333
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3334	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3335	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3336	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3337	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3338	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3339	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3340	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3341	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3342	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3343	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3344	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3345	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3346	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3347	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3348	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3349	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3350	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3351	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3352	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3354	changeRawKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3355	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3357	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3358	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3359	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3360	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3361	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3362	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3363	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3364	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3365	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3366	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3368	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3369	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3371	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3373	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3374	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3375	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3376	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3377	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3378	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3379	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3380	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3381	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3382	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3383	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3385	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3387	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3388	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3389	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3390	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3391	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3392
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3393	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3394	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3395	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3396	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3398	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3399
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3400	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3401	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3402	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3403
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3404	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3405
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3406	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3407
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3408	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3409
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3410	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3411	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3412
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3413	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3414	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3415
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3416	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3418	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3419
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3420	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3421	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3422
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3423	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3424
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3425	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3426	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3427	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3428
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3429	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3430	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3431
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3432	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3433	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3434	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3435	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3436	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3437
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3438	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3439
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3440	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3441	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3442	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	3443	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3444	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	3445	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	3446	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	3447	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	3448	@@@@@@@@@@@@@@@@@@@@@@@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	3449	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3450
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3451	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3455	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3457	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3458	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3460	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3461	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3462	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3463	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3464	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3472	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3473	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3474	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3477	#bounds: #(#Rectangle 16 46 491 717)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3484	#layout: #(#LayoutFrame 2 0.0 105 0 -2 1.0 125 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3487	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3488	#acceptOnLostFocus: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3489	#acceptOnPointerLeave: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3490	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3491	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3492	#name: 'List1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3493	#layout: #(#LayoutFrame 2 0.0 125 0 -2 1.0 -30 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3494	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3495	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3496	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3497	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3498	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3499	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3500	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3503	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3504	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3505	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3506	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3507	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3508	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3509	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3510	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3515	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3516	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3517	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3519	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3520	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3526	#(#HorizontalPanelViewSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3527	#name: 'HorizontalPanel1'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3528	#layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3529	#horizontalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3530	#verticalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3531	#horizontalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3532	#verticalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3533	#component:
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3534	#(#SpecCollection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3535	#collection: #(
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3536	#(#ActionButtonSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3537	#label: 'Reread Language Resources'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3538	#name: 'RereadResourcesButton'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3539	#translateLabel: true
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3540	#model: #rereadResourceFiles
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3541	#extent: #(#Point 190 22)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3542	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3543	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3544
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3545	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3546	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3549	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3550	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3551	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3553	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3555	languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3556	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3558	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3559	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3561	requestor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3562	"return the value of the instance variable 'requestor' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3563
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564	\| masterApplication \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565	masterApplication := self masterApplication.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566	masterApplication notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567	^ masterApplication requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3568	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3569	^ nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3570	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3572	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3573
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3574	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3576	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3577	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3586	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3587	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3588	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3594	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3603	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3616	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3621	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	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	3624	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3627	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3633	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3634	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3635	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3638	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639	answer ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3640	switch := ( self requestor fontBoxForEncoding:fontPref)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3641	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3642	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3643	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3644	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3646	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3647	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3648	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3649	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3650	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3651	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3652	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3653	switch ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3654	self requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3655	self requestor reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3656	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3657	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3658	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661	self currentLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3662	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3663
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3664	doubleClick:aEntry
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3665
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3666	self saveSettingsIfUnsavedChangesArePresent.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3667	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3668
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3669	evaluateModified
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3670
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3671	self modifiedChannel value:(self hasUnsavedChanges).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3672	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3673
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3674	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3675
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3676	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3677	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3678
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3679	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3680	self languageHolder value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3681	self currentLanguageChannel value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3682	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3683	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3684
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3685	rereadResourceFiles
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3686	ResourcePack flushCachedResourcePacks.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3687
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3688	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3689	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3690
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3691	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3692	Smalltalk changed:#LanguageTerritory.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697	currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705	currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713	languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716	languageHolder := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717	languageHolder onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3718	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3727	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3730	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3732	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3733	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3734	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3735	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3736	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3737
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3738	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3739	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3740	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3741	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3743	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3744
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3745	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3746	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3747	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3748
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3749	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3750
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3751	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3752
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3753	listOfLanguages := self class classResources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3754	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3755	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3756	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3757	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3758	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3759	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3760	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3761	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3762	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3763	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3764	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3765	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3766	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3767	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3768	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3769	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3770	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3771	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3772	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3773	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3774	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3775	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3776	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3778	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3779	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3780	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3782	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	3783
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3784	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3789	currentLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3790
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3794	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3795	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3796	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798	^ languageList at:(listOfLanguages indexOf:lang)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3806	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3807
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3808	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3809	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3810	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3811
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3812	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3813	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3814
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3815	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3816	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3817	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3818	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3819	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3820
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3821	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3822
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3823	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3824	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3825	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	3826	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD\@@@@@@@@@@@@@@@@@@@@@@@ARIT(*IRL]R0@@@@@@@@@@@@@@@@@@M2-VUQ<UD4QV@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3827	@@@@@@AURQ<WI!!<UEQTVS%@@@@@@@@@@@@AXI3=CH!!4QDA!!DJAT[SP@@@@@@@@AXRDQSI1,OC <QE1TRHQ @@@@@@@AUR2XWGQ MCP<OC <QHATEN0@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3828	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	3829	@ 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	3830	E1@@GQYHH"1ET @@@@@@@@@@M0\@B!!$GMTP8S"EO@@@@@@@@@@@@@@@:B@@UET$1H$D/@@@@@@@@@@@@@@@@@C OD14\G$9ST@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3831	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	3832	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3833
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3838	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3840	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3841	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3842
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3843	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3844	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3845	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3846	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3847	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3849	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3851	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3852	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3853	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3854	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3855	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3856	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3857	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3858	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3859	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3860	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3861	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3873	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3874	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3875	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3876	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3881	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3883	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3884	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3885	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3886	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3887	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3888	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3889	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3890	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3891	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3892	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3893	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3894	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3895	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3896	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3897	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3898	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3899	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3900	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3901	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3902	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3903	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3904	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3905	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3906	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3907	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3908	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3909	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3910	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3911	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3912	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3913	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3914	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3915	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3916	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3917
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3918	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3919	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3920	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3921	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3922	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3923	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3924	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3925	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3926	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3927	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3928	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3929	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3930	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3931	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3932	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3933	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3934	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3935	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3936	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3937	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3938	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3939	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3940	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3941	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3942	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3943	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3944	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3945	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3946	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3947	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3948	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3949	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3950	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3951	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3952	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3953	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3954	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3955
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3956	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3957	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3958	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3959	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3960	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3961	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3962	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3963	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3964	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3965	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3966	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3967	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3968	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3969	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3970	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3971	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3972	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3973	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3974	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3975	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3976	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3977	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3978	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3979	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3980	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3981	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3982	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3983	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3984	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3985	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3986	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3987	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3988	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3989	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3990	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3991	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3992	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3993
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3994	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3995	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3996	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3997	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3998	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3999	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4000	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4001	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4002	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4003	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4004	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4005	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4006	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4007	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4008	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4009	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4010	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4011	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4012	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4013	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4014	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4015	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4016	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4017	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4018	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4019	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4020	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4021	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4022	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4023	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4024	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4025	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4026	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4027	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4028	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4029	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4030	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4031
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4032	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4033	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4034	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4035	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4036	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4037	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4038	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4039	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4040	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4041	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4042	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4043	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4044	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4045	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4046	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4047	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4048	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4049	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4050	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4051	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4052	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4053	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4054	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4055	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4056	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4057	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4058	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4059	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4060	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4061	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4062	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4063	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4064	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4065	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4066	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4067	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4068	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4069
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4070	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4071	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4073	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4074	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4075	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4076	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4077	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4078	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4079	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4080	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4081	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4082	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4083	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4084	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4085	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4086	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4087	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4088	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4089	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4090	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4091	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4092	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4093	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4094	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4095	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4096	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4097	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4098	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4099	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4100	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4101	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4102	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4103	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4104	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4105	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4106	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4107
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4108	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4109	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4110	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4111	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4112	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4113	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4114	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4115	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4116	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4117	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4118	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4119	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4120	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4121	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4122	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4123	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4124	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4125	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4126	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4127	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4128	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4129	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4130	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4131	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4132	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4133	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4134	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4135	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4136	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4137	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4138	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4139	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4140	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4141	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4142	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4143	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4144	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4145
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4146	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4147	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4148	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4149	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4150	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4151	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4152	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4153	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4154	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4155	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4156	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4157	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4158	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4159	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4160	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4161	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4162	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4163	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4164	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4165	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4166	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4167	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4168	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4169	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4170	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4171	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4172	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4173	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4174	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4175	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4176	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4177	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4178	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4179	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4180	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4181	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4182	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4183
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4184	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4185	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4186	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4187	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4188	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4189	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4190	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4191	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4192	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4193	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4194	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4195	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4196	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4197	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4198	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4199	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4200	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4201	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4202	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4203	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4204	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4205	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4206	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4207	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4208	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4209	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4210	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4211	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4212	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4213	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4214	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4215	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4216	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4217	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4218	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4219	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4222
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4224	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4226	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4227	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4228	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4229	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4230	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4231	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4232	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4233	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4234	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4235	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4236	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4237	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4238	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4239	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4240	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4242	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4243	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4244	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4245	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4246	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4247	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4248	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4249	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4250	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4251	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4252	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4253	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4254	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4255	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4256	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4257	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4258	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4259	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4260	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4261
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4262	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4263	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4264	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4265	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4266	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4267	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4268	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4269	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4270	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4271	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4272	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4273	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4274	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4275	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4276	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4277	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4278	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4279	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4280	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4281	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4282	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4283	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4284	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4285	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4286	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4287	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4288	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4289	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4290	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4291	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4292	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4293	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4294	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4295	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4296	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4297	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4298	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4299
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4300	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4301	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4303	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4304
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4305	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4306	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4307	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4308
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4310	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4311	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4312
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4313	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4314
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4315	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4316
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4317	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4318	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4319	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4320	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4321	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4322	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4323	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4324	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4325	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4326	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4327	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4328	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4329
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4330	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4332	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4333	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4334
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4335	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4336
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4337	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4338	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4339	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4340
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4341	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4342	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4343	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4344	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4345	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4346	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4347	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4348	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4349	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4350	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4351	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4352	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4353	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4354	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4356	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4358	codeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4359
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4360	codeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4361	codeLimit := ObjectMemory dynamicCodeLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4362	codeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4363	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4364	^ codeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4365	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367	codeTrigger
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	codeTrigger isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4371	codeTrigger onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373	^ codeTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4375
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4376	compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4377
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4378	compressLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4379	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4380	compressLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4382	^ compressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4383	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4385	fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4387	fastMoreLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4388	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4389	fastMoreLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4390	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4391	^ fastMoreLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4392	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4393
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4394	igcFreeAmount
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4395
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4396	igcFreeAmount isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4397	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4398	igcFreeAmount onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4399	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4400	^ igcFreeAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4401	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4402
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4403	igcFreeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4404
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4405	igcFreeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4406	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4407	igcFreeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4408	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4409	^ igcFreeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4410	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4411
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4412	igcLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4414	igcLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4415	igcLimit := ObjectMemory incrementalGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4416	igcLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4417	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4418	^ igcLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4419	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4420
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4421	maxOldSpace
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4423	maxOldSpace isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424	maxOldSpace := ObjectMemory maxOldSpace asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4425	maxOldSpace onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4426	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4427	^ maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4428	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4429
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4430	newSpaceSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4432	newSpaceSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4433	newSpaceSize := ObjectMemory newSpaceSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4434	newSpaceSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4435	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4436	^ newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4437	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4438
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4439	oldIncr
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4440
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4441	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4442	oldIncr := ObjectMemory oldSpaceIncrement asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4443	oldIncr onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4444	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4445	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4446	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4447
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4448	stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4449
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4450	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4451	stackLimit := Process defaultMaximumStackSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4452	stackLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4453	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4454	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4455	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4457	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4458
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4459	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4460	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4461
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4462	warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4463
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4464	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4465	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4466	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4467	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4468	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4469
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4470	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4472	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4473
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4474	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4475	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4476	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4477	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4479	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4480
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4481	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4482
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4483	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4484	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4485	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4486	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4487	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4488	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4489	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4490	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4491	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4492	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4493	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4494	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4495	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4496	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4497
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4498	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4499
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4500	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4501	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4502	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4503
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4504	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4505	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4506
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4507	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4508	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4509	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4510	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4511	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4512
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4513	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4514
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4515	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4516	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4517	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	4518	@@@@_$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	4519	.+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	4520	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	4521	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	4522	[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	4523	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	4524	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4525
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4526	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4527
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4528	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4529	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4530	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4531
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4532	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4533	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4534
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4535	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4536	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4537	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4538	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4539	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4540
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4541	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4542
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4543	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4544	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4545	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4546	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4547	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4548	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4549	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4550	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4551	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4552	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4553	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4554	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4555	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4556	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4557	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4558	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4559	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4560	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4561	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4562	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4563	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4564	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4565	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4566	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4567	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4568	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4569	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4570	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4571	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4572	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4573	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4574	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4575	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4576	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4577	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4578	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4579	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4580	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4581	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4582	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4583	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4584	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4585	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4586	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4587	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4588	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4589	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4590	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4591	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4592	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4593	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4594	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4595	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4596	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4597
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4598	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4599	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4600	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4601	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4602	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4603	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4604	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4605	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4606	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4607	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4608	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4609	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4610	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4611	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4612	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4613	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4614	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4615	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4616	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4617	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4618	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4619	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4620	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4621	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4622	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4623	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4624	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4625	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4626
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4627	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4628	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4629	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4630	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4631	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4632	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4633	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4634	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4635	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4636	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4637	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4638	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4639	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4640	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4641	#translateLabel: true
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	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4647	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4648	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4649	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4650	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4651	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4652	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4653	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4654	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4655	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4656	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4657	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4658	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4659	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4660	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4661	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4662	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4663	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4664	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4665	#type: #password
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4666	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4667	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4668	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4669	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4670	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4671	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4672
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4673	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4674	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4675	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4676	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4677
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4678	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4679	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4680	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4681	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4682
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4683	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4684	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4685	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4686
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4687	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4688	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4689	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4690
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4691	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4692
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4693	basicSaveSettings
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	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4696	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4697	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4698	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4699	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4700	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4701	SmalltalkShareServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4702	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4703	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4704	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4705	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4706	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4707	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4708	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4709	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4710	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4711	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4712	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4713	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4714	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4715	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4716	WindowMigrationServer password:nil
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 windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4719	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4720	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4721	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4722	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4723	WindowMigrationServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4724	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4725	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4726	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4727	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4728	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4729	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4730	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4731	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4732	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4733	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4734	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4735
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4736	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4737
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4738	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4739	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4740
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4741	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4742
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4743	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4744	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4745	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4746
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4747	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4748	self remoteBrowsingEnabled value:(self hasRemoteBrowsingSupport
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4749	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4750	self windowMigrationEnabled value:(self hasWindowMigrationServer
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4751	and:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4752	WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4753	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4754	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4755	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4756	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4757	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4758	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4759	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4760	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4761	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4762	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4763	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4764
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4765	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4766
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4767	enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4768
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4769	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4770	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4771	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4772	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4773	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4774	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4775	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4776	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4777	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4778
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4779	remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4780
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4781	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4782	remoteBrowsingEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4783	remoteBrowsingEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4784	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4785	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4786	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4787
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4788	windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4789
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4790	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4791	windowMigrationAuthenticate := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4792	windowMigrationAuthenticate onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4793	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4794	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4795	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4796
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4797	windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4798
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4799	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4800	windowMigrationEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4801	windowMigrationEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4802	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4803	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4804	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4805
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4806	windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4807
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4808	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4809	windowMigrationPassword := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4810	windowMigrationPassword onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4811	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4812	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4813	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4814
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4815	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4816
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4817	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4818	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4819
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4820	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4821
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4822	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4823	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4824	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4825
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4826	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4827	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4828
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4829	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4830
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4831	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4832	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4833	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4834	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4835
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4836	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4837
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4838	hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4839
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4840	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4841	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4842
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4843	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4844
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4845	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4846	self remoteBrowsingEnabled value ~= (self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4847	self windowMigrationEnabled value ~= (self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4848	self windowMigrationPassword value ~= WindowMigrationServer password or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4849	self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil ]]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4850	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4851	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4852
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4853	hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4854
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4855	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4856	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4857
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4858	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4859
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4860	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4861	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4862	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4863
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4864	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4865	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4866
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4867	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4868	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4869	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4870	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4871	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4872
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4873	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4874
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4875	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4876	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4877	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	4878	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4879	@@@@@@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	4880	@ 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	4881	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	4882	@ 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	4883	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	4884	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4885
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4886	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4887
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4888	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4889	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4890	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4891
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4892	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4893	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4894
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4895	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4896	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4897	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4898	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4899	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4900
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4901	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4903	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4904	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4905	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4906	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4907	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	4908	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	4909	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4910	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4911	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4912	#bounds: #(#Rectangle 16 46 526 612)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4913	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4914	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4915	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4916	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4917	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4918	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4919	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4920	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4921	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4922	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4923	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4924	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4925	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4926	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4927	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4928	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4929	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4930	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4931	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4932	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4933	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4934	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4935	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4936	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4937	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4938	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4939	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4940	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4941	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4942	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4943	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4944	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4945	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4946	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4947	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4948	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4949	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4950	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4951	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4952	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4953	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4954	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4955	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4956	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4957	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4958	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4959	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4960	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4961	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4962	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4963	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4964	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4965	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4966	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4967	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4968	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4969	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4970	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4971	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4972	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4973	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4974	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4975	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4976	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4977	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4978	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4979	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4980	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4981	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4982	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4983	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4984	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4985	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4986	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4987	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4988	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4989	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4990	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4991	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4992	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4993	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4994	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4995	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4996	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4997	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4998	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4999	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5000	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5001	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5002	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5003	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5004	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5005	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5006	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5007	#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	5008	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5009	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5010	#adjust: #leftRight
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5011	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5012	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5013	#label: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5014	#name: 'CheckBox5'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5015	#layout: #(#LayoutFrame 0 0 -22 1 216 0 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5016	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5017	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5018	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5019	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5020	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5021	#layout: #(#LayoutFrame 218 0 -22 1 -5 1 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5022	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5023	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5024	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5025	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5026	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5027	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5028	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5029	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5030	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5031
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5032	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5033	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5034	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5035	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5036
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5037	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5038	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5039	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5040	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5041
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5042	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5043	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5044	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5045
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5046	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5047	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5048	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5049
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5050	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5051
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5052	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5053
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5054	PopUpView shadows:self shadows value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5055	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5056	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5057	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5058	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5059	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5060	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5061
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5062	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5063	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5064	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5065
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5066	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5067	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5068	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5069	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5070	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5071	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5072	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5073	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5074	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5075
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5076	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5077	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5078
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5079	currentUserPrefs beepEnabled:self beepEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5080
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5081	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5082	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5083	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5084	Screen current activateOnClick:self activateOnClick value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5085
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5086	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5087
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5088	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5089	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5090
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5091	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5092
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5093	self modifiedChannel value:(self hasUnsavedChanges).
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	formatHostNameinWindowLabels
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5097	\|newFormat\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5098
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5099	newFormat := Dialog request:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5100	'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5101	withCRs initialAnswer:newWindowLabelFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5103	newFormat size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5104	newWindowLabelFormat := newFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5105	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5106	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5107	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5108
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5109	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5110
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5111	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5112	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5113	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5114
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5115	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5116	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5117	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5118	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5119	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5120	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5121	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5122	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5123	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5124	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5125	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5126	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5127	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5128	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5129	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5130	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5131	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5132	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5133
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5134	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5136	activateOnClick
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5137
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5138	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5139	activateOnClick := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5140	activateOnClick onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5141	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5142	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5143	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5145	beepEnabled
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5146
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5147	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5148	beepEnabled := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5149	beepEnabled onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5150	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5151	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5152	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5154	focusFollowsMouse
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5156	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5157	focusFollowsMouse := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5158	focusFollowsMouse onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5159	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5160	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5161	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5162
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5163	formatHostNameWindowLabel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5164
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5165	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5166	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5167	('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	5168	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5169	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5170	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5171
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5172	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5173	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5174	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5175
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5176	hostNameInLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5178	hostNameInLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5179	hostNameInLabelHolder := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5180	hostNameInLabelHolder onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5181	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5182	^ hostNameInLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5183	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5184
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5185	newWindowLabelFormat
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5186
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5187	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5188	newWindowLabelFormat := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5189	newWindowLabelFormat onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5190	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5191	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5192
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5193	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5194	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5195
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5196	opaqueTableColumnResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5199	opaqueTableColumnResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5200	opaqueTableColumnResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5201	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5202	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5203	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5204
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5205	opaqueVariablePanelResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5206
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5207	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5208	opaqueVariablePanelResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5209	opaqueVariablePanelResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5210	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5211	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5212	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5213
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5214	returnFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5215
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5216	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5217	returnFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5218	returnFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5219	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5220	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5221	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5223	shadows
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5224
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5225	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5226	shadows := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5227	shadows onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5228	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5229	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5230	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5231
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5232	showAccelerators
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5233
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5234	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5235	showAccelerators := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5236	showAccelerators onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5237	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5238	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5239	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5240
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5241	takeFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5242
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5243	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5244	takeFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5245	takeFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5246	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5247	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5248	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5249
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5250	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5251
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5252	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5253	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5254
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5255	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5256
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5257	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5258	"/ ^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5259	"/ ].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5260
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5261	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5262	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5263
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5264	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5266	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5267	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5268
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5269	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5271	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5272	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5273	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5275	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5277	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5278	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5279	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5280
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5281	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5283	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5284
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5285	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5286	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5287	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5288	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5289	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5290	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5291	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5292	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5293	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5294	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5295	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5296	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5297	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5298	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5299
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5300	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5301	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5302
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5303	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5304
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5305	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5306	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5307	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5308
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5309	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5310	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5311
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5312	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5313	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5314	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5315	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5316	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5317
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5318	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5319
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5320	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5321	constantNamed:#'AbstractSettingsApplication::OsiSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5322	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	5323	@@@@_$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	5324	.+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	5325	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	5326	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	5327	[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	5328	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	5329	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5330
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5331	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5332
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5333	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5334	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5335	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5336
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5337	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5338	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5339
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5340	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5341	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5342	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5343	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5344	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5345
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5346	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5347
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5348	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5349	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5350	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5351	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5352	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5353	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5354	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5355	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5356	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5357	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5358	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5359	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5360	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5361	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5362	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5363	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5364	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5365	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5366	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5367	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5368	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5369	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5370	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5371	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5372	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5373	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5374	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5375	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5376	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5377	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5378	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5379	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5380	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5381	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5382	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5383	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5384	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5385	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5386	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5387	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5388	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5389	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5390	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5391	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5392	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5393	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5394	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5395	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5396	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5397	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5398	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5399	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5400	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5401	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5402	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5403	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5404	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5405	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5406	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5407	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5408	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5409	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5410	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5411	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5412	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5413	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5414	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5415	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5416	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5417
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5418	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5419	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5420	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5421	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5422	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5423	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5424	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5425	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5426	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5427	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5428	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5429	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5430	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5431	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5432	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5433	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5434	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5435	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5436	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5437	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5438	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5439	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5440	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5441	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5442	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5443	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5444	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5445	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5446	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5447	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5448	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5449	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5450	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5451	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5452	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5453	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5454	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5455	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5456	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5457	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5458	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5459	)
4310 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	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5464	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5465	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5466	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5467	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5468	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5469	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5470	#label: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5471	#name: 'Label3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5472	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5473	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5474	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5475	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5476	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5477	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5478	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5479	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5480	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5481	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5482	#name: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5483	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5484	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5485	#model: #osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5486	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5487	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5488	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5489	#label: 'Log Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5490	#name: 'CheckBox8'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5491	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5492	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5493	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5494	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5495	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5496	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5497
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5498	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5499	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5500	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5501	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5502
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5503	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5504	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5505	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5506	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5507
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5508	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5509	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5510	)
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	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5514	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5515
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5516	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5517
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5518	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5519
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5520	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5521	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5522	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5523	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5524	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5525	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5526	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5527	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5528	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5529	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5530	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5531	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5532	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5533	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5534	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5535
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5536	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5537
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5538	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5539	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5540
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5541	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5542
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5543	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5544	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5545
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5546	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5547	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5548	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5549	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5550	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5551	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5552	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5553	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5554	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5555	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5556	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5557	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5558	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5559	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5560	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5561	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5562	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5563	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5564	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5565	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5566
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5567	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5568
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5569	osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5570	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5571
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5572	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5573	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5574	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5575	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5576
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5577	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5578	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5579	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5580	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5581	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5582	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5583	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5584	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5585
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5586	osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5587	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5588
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5589	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5590	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5591	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5592	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5593
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5594	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5595	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5596	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5597	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5598	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5599	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5600	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5601	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5602
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5603	osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5604	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5605
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5606	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5607	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5608	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5609	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5611	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5614	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5615	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5616	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5617	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5618	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5619
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5620	osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5621	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5622
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5623	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5624	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5625	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5627
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5628	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5629	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5630	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5631	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5632	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5633	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5634	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5635	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5636
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5637	osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5638	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5639
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5640	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5642	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5643	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5644
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5645	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5646	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5647	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5648	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5649	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5650	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5651	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5654	osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5655	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5656
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5657	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5658	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5659	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5660	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5661
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5662	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5663	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5664	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5665	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5666	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5667	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5668	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5669	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5670
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5671	osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5672	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5673
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5674	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5675	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5676	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5677	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5678
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5679	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5680	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5681	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5682	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5683	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5684	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5685	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5686	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5687
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5688	osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5689	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5690
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5691	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5692	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5693	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5694	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5695
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5696	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5697	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5698	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5699	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5700	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5701	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5702	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5703	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5704
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5705	osiROSEInvokationLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5706	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5707
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5708	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5709	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5710	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5711	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5712
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5713	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5714	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5715	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5716	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5717	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5718	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5719	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5720	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5721
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5722	osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5723	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5724
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5725	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5726	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5727	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5728	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5729
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5730	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5731	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5732	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5733	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5734	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5735	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5736	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5737	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5738
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5739	osiROSEResponseLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5740	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5741
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5742	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5743	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5744	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5745	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5746
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5747	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5748	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5749	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5750	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5751	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5752	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5753	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5754	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5755
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5756	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5757
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5758	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5759	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5760
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5761	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5762
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5763	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5764	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5765	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5766
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5767	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5768	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5769
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5770	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5771
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5772	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5773
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5774	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5775	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5776	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5777	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5778	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5779	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5780	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5781	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5782	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5783	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5784	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5785	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5786	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5787
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5788	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5789
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5790	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5791	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5792	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5793
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5794	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5795	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5796
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5797	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5798	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5799	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5800	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5801	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5802
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5803	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5804
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5805	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5806	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5807	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	5808	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5809	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDA@PDA@P@@@@@@@@@A@@@@@@@@@@@@@@@@@P@@@@@@@@@@@P@@@PDA@P@@@PDA@@D@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5810	@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	5811	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	5812	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5813	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	5814	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5815
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5816	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5817
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5818	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5819	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5820	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5821
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5822	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5823	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5824
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5825	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5826	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5827	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5828	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5829	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5831	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5833	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5834	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5835	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5836	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5837	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5838	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5839	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5840	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5841	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5842	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5843	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5844	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5845	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5846	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5847	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5848	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5849	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5850	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5851	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5852	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5853	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5854	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5855	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5856	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5857	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5858	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5859	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5860	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5861	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5862	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5863	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5864	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5866	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5867	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5868	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5884	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	5887	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5888	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5893	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5895	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5896	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5897
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5902	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5906	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5910	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5913	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5914	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5915	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5917	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5920	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5921	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5925	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5926	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5927	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5928	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5929	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5930	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5931	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5932	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
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
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5936	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5937	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5938	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5943	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5944	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5945	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5946	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5947	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5948	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5949	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5950	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5951	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5952	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5953	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5954	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5955	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5956	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5957	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5958	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5959	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5960	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5961	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5962	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5963	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5964	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5965	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5966	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5967	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5968	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5969	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5970	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	5971	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5972	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5973	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5974	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5975	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5976	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5977	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5978	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5979	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5980	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5981	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5982	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5983	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5984	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5985	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5986	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5987
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5988	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5989	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5990	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5991	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5992	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5993	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5994	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5995	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5996	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5997	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5998	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5999	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6000	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6001	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6002	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6003	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6004	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6005	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6006	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6007	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6008	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6009	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6010	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6011	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6012	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6013	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6014	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6015
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6016	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6017	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6018	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6019	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6020	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6021	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6022	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6023	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6024	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6025	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6026	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6027	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6028	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6029	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6030	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6031	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6032	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6033	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6034	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6035	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6036	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6037	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6038	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6039	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6040	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6041	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6042	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6043
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6044	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6045	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6046	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6047	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6048	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6049	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6050	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6051	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6052	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6053	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6054	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6055	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6056	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6057	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6058	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6059	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6060	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6061	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6062	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6063	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6064	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6065	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6066	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6067	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6068	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6069	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6070	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6071
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6072	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6073	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6074	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6075	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6076
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6077	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6078	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6079	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6080	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6081	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6082	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6083	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6084
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6085	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6086	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6087	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6088	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6089	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6090	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6091	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6092	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6093	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6094	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6095	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6097	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6098	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6099	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6100	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6101	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6105	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6106	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6107
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6108	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6109	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6110	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6114	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6116	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6117
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6118	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6119
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6120	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6121	Printer printCommand:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6122
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6123	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6124	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6125	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6126	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6127	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6128	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6129	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6130	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6131	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6132	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6133	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6134	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6135	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6136	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6137	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6138	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6139	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6140	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6141	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6142	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6143
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6144	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6145
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6146	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6147	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6148
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6149	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6150
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6151	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6152	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6153	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6154
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6155	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6156	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6157	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6158	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6159	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6160	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6161	self printCommand value:Printer printCommand.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6162	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6163	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6164	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6165	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6166	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6167	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6168	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6169	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6170	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6172	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6174	bottomMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6176	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6177	bottomMargin := Printer bottomMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6178	bottomMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6179	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6180	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6181	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6182
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6183	enableColorBox
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6185	enableColorBox isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6186	enableColorBox := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6187	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6188	^ enableColorBox.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6189	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6190
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6191	enableFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6192
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6193	enableFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6194	enableFormat := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6195	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6196	^ enableFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6197	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6198
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6199	enableMargins
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6201	enableMargins isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6202	enableMargins := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6203	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6204	^ enableMargins.
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	enablelandscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6208
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6209	enablelandscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6210	enablelandscape := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6211	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6212	^ enablelandscape.
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	landscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6217	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6218	landscape := Printer landscape asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6219	landscape onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6220	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6221	^ landscape.
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	leftMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6226	leftMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6227	leftMargin := Printer leftMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6228	leftMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6229	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6230	^ leftMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6231	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6232
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6233	pageFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6235	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6236	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6237	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6238	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6239	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6240	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6241	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6242	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6243	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6244	pageFormat onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6245	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6246	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6247	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6248
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6249	pageFormatList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6250
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6251	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6252	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6253	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6254	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6255	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6256
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6257	printCommand
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6259	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6260	printCommand := Printer printCommand asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6261	printCommand onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6262	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6263	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6264	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6266	printCommandList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6268	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6269	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6270	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6271	^ printCommandList.
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	printerType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6276	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6277	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6278	printerType onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6279	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6280	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6281	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6283	printerTypeSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6284
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6285	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6286	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6287	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6288	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6289	printerTypeSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6290	printerTypeSelection onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6291	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6292	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6293	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6295	rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6297	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6298	rightMargin := Printer rightMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6299	rightMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6300	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6301	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6302	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6303
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6304	selectedUnit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6305
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6306	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6307	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6308	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6309	selectedUnit changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6310	selectedUnit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6311	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6312	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6313	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6315	supportsColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6316
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6317	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6318	supportsColor := Printer supportsColor asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6319	supportsColor onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6320	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6321	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6322	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6323
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6324	topMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6325
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6326	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6327	topMargin := Printer topMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6328	topMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6329	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6330	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6331	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6333	unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6334
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6335	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6336	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6337	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6338	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6339	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6341	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6343	printerTypeSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6344
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6345	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6346	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6347	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6348	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6349	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6350	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6351	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6352	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6353	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6354	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6356	printerTypeSelectionOrUnitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6358	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6359
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6360	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6361	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6362	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6363	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6364	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6365	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6366	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6367	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6368	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6369	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6370	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6371	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6372	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6373	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6374	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6375	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6376	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6377	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6378	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6379	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6380	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6381	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6382
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6383	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6384	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6385	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6386	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6387
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6388	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6389	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6390	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6392	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6393	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6394	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6395	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6396	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6397	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6398	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6399	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6400	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6401	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6402	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6403	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6404	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6405	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6406	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6407	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6409	unitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6410	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6411
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6412	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6413	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6415	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6417	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6418	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6419	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6420	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6421
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6422	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6423	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6424
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6425	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6426
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6427	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6428	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6429
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6430	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6432	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6433	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6434	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6435
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6436	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6438	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6439	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6440	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6442	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6443
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6444	commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6445	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6446	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6447	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6448	commandList := PrinterStream defaultCommands.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6449	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6450	commandList := #('lpr'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6451	'lp'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6452	) asOrderedCollection.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6453	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6454	(commandList includes:self printCommand value) not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6455	commandList add:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6456	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6457	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6458	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6459	^ commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6460	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6461
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6462	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6463
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6465	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6466	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6467	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6468	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6469	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6470	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6471	printer := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6472	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6473	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6474	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6475	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6476	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6477	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6478	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6479	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6480	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	6481	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	6482	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	6483	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6484	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6485	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6486	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6487	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6488	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6489	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6490
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6491	possiblePrinters
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6492	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6493	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6494	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6495	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6496	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6497
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6498	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6499
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6500	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6501	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6502	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6503
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6504	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6505	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6506
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6507	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6508	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6509	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6510	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6511	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6512
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6513	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6516	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6517	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	6518	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC@0L@@@@@@@@@@@@@@@@@@@@C@0LB@PDB@0LC@@@@@@@@@@@@@@@C@ HBA@DAA@HB@ L@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6519	@@@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	6520	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	6521	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	6522	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	6523	@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	6524	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6525
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6526	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6529	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6530	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6531
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6532	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6533	the UIPainter may not be able to read the specification."
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	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6537	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6538	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
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	<resource: #canvas>
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	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6544	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6545	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6546	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6547	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6548	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6549	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6550	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6551	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6552	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6553	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6554	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6555	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6556	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6557	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6558	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6559	#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	6560	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6561	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6562	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6563	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6564	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6565	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6566	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6567	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6568	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6569	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6570	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6571	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6572	#extent: #(#Point 600 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6573	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6574	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6575	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6576	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6577	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6578	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6579	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6580	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6581	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6582	#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	6583	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6584	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6585	#translateLabel: true
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	)
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	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6591	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6594	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6595	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6596	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6599	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6600	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6601
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6602	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6603
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6604	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6605
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6606	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6607	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6608	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6609	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6610	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6611	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6612	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6613	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6614	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6615	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6616	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6617
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6618	evaluateModified
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	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6621	!
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	help
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	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6626	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6627	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6628
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6629	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6630	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6631	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6632	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6633	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6634
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6635	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6636
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6637	dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6638	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6639
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6640	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6641	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6642	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6643	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6644
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6645	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6646	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6647	"/ 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	6648	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6649	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6650	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6651	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6652	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6653
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6654	preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6655	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6656
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6657	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6658	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6659	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6660	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6661
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6662	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6663	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6664	"/ 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	6665	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6666	"/ preemptive onChangeSend:#preemptiveChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6667	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6668	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6669	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6670
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6671	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6672
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6673	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6674	"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	6675
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6676	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6677
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6678	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6679	"/ ^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6680	"/ ].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6681
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6682	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6683	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6684
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6685	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6686
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6687	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6688
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6689	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6690	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6691	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6692	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6693	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6694
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6695	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6696
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6697	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6698	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6699	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6700
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6701	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6702	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6703
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6704	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6705	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6706	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6707	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6708	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6709
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6710	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6711
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6712	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6713	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6714	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	6715	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6716	@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	6717	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	6718	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	6719	JR0+JP@,JP@@@@HUEP@@@@@@@@@@@B$+KB,,J20)JP@@@@@@@@@@@@@@@@@)K@@)J0@+JR$@@@@@@@@@@@@@@@@@@@@@JR0)@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6720	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6721	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6722
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6723	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6724
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6725	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6726	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6727	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6728
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6729	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6730	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6731
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6732	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6733	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6734	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6735	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6736	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6737
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6738	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6739
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6740	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6741	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6742	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6743	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6744	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6745	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6746	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6747	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6748	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6749	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6750	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6751	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6752	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6753	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6754	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6755	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6756	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6757	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6758	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6759	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6760	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6761	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6762	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6763	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6764	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6765	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6766	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6767	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6768	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6769	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6770	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6771	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6772	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6773	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6774	#name: 'Box1'
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: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6780	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6781	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6782	#enableChannel: #hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6783	#model: #rDoitsEnabled
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 25)
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: 'Box2'
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	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6797	#label: 'Port:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6798	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6799	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6800	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6801	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6802	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6803	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6804	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6805	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6806	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6807	#model: #rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6808	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6809	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6810	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6811	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6812	#acceptOnPointerLeave: false
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	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6818	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6819	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6820	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6821	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6822	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6823	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6824	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6825	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6826	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6827	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6828	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6829	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6830	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6831	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6832	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6833
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6834	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6835	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6836	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6837	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6838	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6839	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6840	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6841	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6842	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6843	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6844	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6845	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6846	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6847	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6848	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6849	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6850	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6851
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6852	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6853	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6854	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6855	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6856	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6857	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6858	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6859	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6860	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6861	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6862	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6863	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6864	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6865	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6866	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6867	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6868	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6869
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6870	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6871	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6872	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6873	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6874
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6875	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6876	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6877	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6878	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6879
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6880	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6881	)
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	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6885	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6886	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6887
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6888	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6889
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6890	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6891
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6892	\|rDoits\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6893
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6894	RDoItServer defaultPortNumber:self rDoitServerPort value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6895	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6896	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6897	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6898	rDoits := self rDoitsEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6899	rDoits ~~ RDoItServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6900	rDoits ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6901	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6902	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6903	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6904	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6905	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6906	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6907	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6908	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6909	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6910	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6911	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6912	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6913
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6914	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6915
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6916	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6917	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6918
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6919	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6920
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6921	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6922	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6923	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6924
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6925	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6926	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6927	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6928	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6929	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6930	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6931	self rDoitServerPort value:RDoItServer defaultPortNumber
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6932	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6933	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6934	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6935	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6936	self rDoitErrorDebugging value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6937	self rDoitServerPort value:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6938	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6939	self modifiedChannel value:false
4310 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	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6943
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6944	rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6945
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6946	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6947	rDoitErrorDebugging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6948	rDoitErrorDebugging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6949	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6950	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6951	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6952
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6953	rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6954
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6955	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6956	rDoitErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6957	rDoitErrorLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6958	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6959	^ rDoitErrorLogging.
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	rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6963
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6964	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6965	rDoitLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6966	rDoitLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6967	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6968	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6969	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6970
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6971	rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6972
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6973	rDoitServerPort isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6974	rDoitServerPort := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6975	rDoitServerPort onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6976	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6977	^ rDoitServerPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6978	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6979
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6980	rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6981
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6982	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6983	rDoitsEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6984	rDoitsEnabled onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6985	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6986	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6987	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6988
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6989	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6990
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6991	rDoitsEnabledChanged
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6992
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6993	self rDoitsEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6994	RDoItServer isLoaded ifFalse:[RDoItServer autoload].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6995	rDoitServerPort value isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6996	rDoitServerPort value:(RDoItServer defaultPortNumber).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6997	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6998	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6999	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7000
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7001	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7002	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7003
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7004	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7005
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7006	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7007	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7008	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7009	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7010
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7011	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7012	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7013
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7014	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7015
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7016	postOpen
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7017	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7018
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7019	postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7020
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7021	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7022	^ super postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7023	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7024
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7025	postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7026
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7027	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7028	^ super postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7029	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7030
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7031	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7032
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7033	hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7034
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7035	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7036	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7037
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7038	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7039
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7040	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7041	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7042	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7043	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7044	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7045	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7046	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7047	self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7048	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7049	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7050	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7051	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7052
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7053	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7054
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7055	stcCompilationDemoStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7056
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7057	^ #('never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7058	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7059
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7060	stcCompilationFullVersionStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7061
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7062	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7063	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7064
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7065	stcCompilationOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7066
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7067	^ #( always default never)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7068	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7069
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7070	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7071
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7072	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7073	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7074	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7075
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7076	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7077	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7078
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7079	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7080	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7081	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7082	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7083	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7084
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7085	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7086
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7087	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7088	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7089	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	7090	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7091	@@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	7092	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	7093	@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	7094	@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	7095	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	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	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7099
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7100	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7101	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7102	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7103
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7104	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7105	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7106
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7107	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7108	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7109	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7110	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7111	"
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	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7114
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7115	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7116	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7117	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7118	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7119	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7120	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7121	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7122	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7123	#max: #(#Point 1024 768)
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7124	#bounds: #(#Rectangle 14 46 614 660)
4387 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	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7127	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7128	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7129	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7130	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7131	#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	7132	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7133	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7134	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7135	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7136	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7137	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7138	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7139	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7140	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7141	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7142	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7143	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7144	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7145	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7146	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7147	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7148	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7149	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7150	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7151	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7152	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7153	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7154	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7155	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7156	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7157	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7158	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7159	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7160	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7161	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7162
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7163	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7164	#extent: #(#Point 600 29)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7165	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7166	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7167	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7168	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7169	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7170	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7171	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7172	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7173	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7174	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7175	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7176	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7177	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7178	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7179	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7180	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7181	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7182	#model: #stc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7183	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7184	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7185	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7186	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7187	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7188	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7189	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7190
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7191	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7192	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7193	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7194	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7195	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7196	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7197	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7198	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7199	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7200	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7201	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7202	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7203	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7204	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7205	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7206	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7207	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7208	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7209	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7210	#model: #stcOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7211	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7212	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7213	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7214	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7215	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7216	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7217	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7218
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7219	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7220	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7221	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7222	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7223	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7224	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7225	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7226	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7227	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7228	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7229	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7230	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7231	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7232	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7233	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7234	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7235	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7236	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7237	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7238	#model: #cc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7239	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7240	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7241	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7242	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7243	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7244	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7245	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7246
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7247	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7248	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7249	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7250	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7251	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7252	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7253	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7254	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7255	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7256	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7257	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7258	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7259	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7260	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7261	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7262	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7263	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7264	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7265	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7266	#model: #ccOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7267	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7268	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7269	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7270	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7271	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7272	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7273	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7274
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7275	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7276	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7277	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7278	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7279	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7280	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7281	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7282	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7283	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7284	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7285	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7286	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7287	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7288	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7289	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7290	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7291	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7292	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7293	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7294	#model: #stcIncludes
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7295	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7296	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7297	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7298	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7299	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7300	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7301	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7302
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7303	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7304	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7305	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7306	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7307	#name: 'Box6'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7308	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7309	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7310	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7311	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7312	#label: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7313	#name: 'Label6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7314	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7315	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7316	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7317	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7318	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7319	#name: 'EntryField6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7320	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7321	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7322	#model: #stcDefines
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7323	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7324	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7325	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7326	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7327	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7328	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7329	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7330
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7331	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7332	#extent: #(#Point 600 34)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7333	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7334	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7335	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7336	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7337	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7338	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7339	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7340	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7341	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7342	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7343	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7344	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7345	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7346	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7347	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7348	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7349	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7350	#model: #linkCommand
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7351	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7352	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7353	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7354	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7355	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7356	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7357	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7358
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7359	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7360	#extent: #(#Point 600 33)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7361	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7362	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7363	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7364	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7365	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7366	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7367	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7368	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7369	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7370	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7371	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7372	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7373	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7374	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7375	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7376	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7377	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7378	#model: #linkArgs
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7379	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7380	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7381	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7382	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7383	#acceptOnPointerLeave: true
4387 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	#extent: #(#Point 600 32)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7391	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7392	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7393	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7394	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7395	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7396	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7397	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7398	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7399	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7400	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7401	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7402	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7403	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7404	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7405	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7406	#model: #stcLibraries
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7407	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7408	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7409	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7410	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7411	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7412	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7413	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7414
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7415	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7416	#extent: #(#Point 600 31)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7419	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7420	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7421	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7422	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7423	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7424	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7425	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7426	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7427	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7428	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7429	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7430	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7431	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7432	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7433	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7434	#model: #stcLibraryPath
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7435	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7436	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7437	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7438	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7439	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7440	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7441	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7442
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7443	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7444	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7445	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7446	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7447
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7448	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7449	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7450	)
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	)
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7456	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7457
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7458	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7459
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7460	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7461	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7462	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7463	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7464	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7465	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7466	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7467	Compiler stcPath:self stc value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7468	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7469	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7470	ObjectFileLoader linkArgs:self linkArgs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7471	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7472	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7473	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7474	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7475	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7476	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7477	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7478	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7479	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7480
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7481	evaluateModified
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	self modifiedChannel value:(self hasUnsavedChanges).
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	help
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	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7492	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7493	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7494	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7495	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7497	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7498	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7499	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7502	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7503	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7504	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7505
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7506	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7507	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7508	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7509	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7510	self stcLibraryPath value:t
4387 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	self thisIsADemoVersion ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7514	self stcCompilationSelection value:(self class stcCompilationOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7515	indexOf:(Compiler stcCompilation)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7516	ifAbsent:2)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7517	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7518	self stcCompilationSelection value:2
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7519	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7520	self modifiedChannel value:false
4387 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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7523	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
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	canLoadBinaries
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	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7528	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7529	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7530	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7531	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7532
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7533	cc
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	cc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7536	cc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7537	cc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7538	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7539	^ cc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7540	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7541
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7542	ccOptions
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	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7545	ccOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7546	ccOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7547	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7548	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7549	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7550
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7551	enableStcLibraryPath
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	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
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	linkArgs
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	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7559	linkArgs := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7560	linkArgs 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	^ linkArgs.
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	linkCommand
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	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7568	linkCommand := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7569	linkCommand 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	^ linkCommand.
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	stc
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	stc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7577	stc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7578	stc 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	^ stc.
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	stcCompilationList
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	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7586	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7587	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7589	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7590	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7591	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7592	^ stcCompilationList.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7595	stcCompilationSelection
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	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7598	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7599	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7600	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7601	stcCompilationSelection := 2 asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7603	stcCompilationSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7604	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7605	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7606	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7607
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7608	stcDefines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7609
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7610	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7611	stcDefines := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7612	stcDefines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7613	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7614	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7615	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7616
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7617	stcIncludes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7618
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7619	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7620	stcIncludes := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7621	stcIncludes onChangeSend:#evaluateModified to:self.
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	^ stcIncludes.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7626	stcLibraries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7627
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7628	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7629	stcLibraries := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7630	stcLibraries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7631	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7632	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7633	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7634
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7635	stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7636
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7637	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7638	stcLibraryPath := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7639	stcLibraryPath onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7640	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7641	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7642	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7643
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7644	stcOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7645
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7646	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7647	stcOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7648	stcOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7649	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7650	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7651	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7652
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7653	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'change & update'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7654
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7655	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7656	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7657
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7658	"stub code automatically generated - please change as required"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7659
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7660	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7661	"/ ^ self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7662	"/ ].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7663
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7664	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7665	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7666
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7667	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7668
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7669	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7670
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7671	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7672	searchedLibs := ObjectFileLoader searchedLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7673	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7674	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7675	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7676	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7677	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7678	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7679	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7680	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7681	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7682	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7683	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7684	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7685	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7686	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7687	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7688	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7689	ObjectFileLoader libPath ~= self stcLibraryPath value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7690	])])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7691	]]]]]]]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7692	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7693	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7694
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7695	thisIsADemoVersion
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7696
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7697	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7698	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7699
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7700	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7701
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7702	exampleText
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	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7705	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7706	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7707
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7708	\|index\|
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	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7711	self at:index. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7712	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7713	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7714	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7715	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7716	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7717	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7718	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7719	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7720	Transcript showCR:''world''.
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	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7723	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7724	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7725	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7726	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7727	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7728	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7729	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7730	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7731	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7732	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7733	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7734	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7735	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7736	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7737	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7738	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7739	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7740	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7741	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7742	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7743	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7744	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7745
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7746	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7747
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7748	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7749	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7750	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7751
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7752	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7753	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7754
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7755	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7756	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7757	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7758	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7759	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7760
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7761	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7762
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7763	^Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7764	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7765	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	7766	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7767	@@(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	7768	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	7769	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	7770	@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	7771	@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	7772	! !
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7775
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7776	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7777	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7778	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7779
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7780	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7781	the UIPainter may not be able to read the specification."
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	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7785	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7786	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7789	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7790
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7791	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7792	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7793	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7794	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7795	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7796	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7797	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7798	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7799	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7800	#bounds: #(#Rectangle 12 22 616 698)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7801	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7802	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7803	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7804	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7805	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7806	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7807	#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	7808	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7809	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7810	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7811	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7812	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7813	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7814	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7815	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7816	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7817	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7818	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7819	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7820	#verticalSpace: 10
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7821	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7822	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7823	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7824	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7825	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7826	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7827	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7828	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7829	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7830	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7831	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7832	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7833	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7834	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7835	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7836	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7837	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7838	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7839	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7840	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7841	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7842	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7843	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7844	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7845	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7846	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7847	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7848	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7849	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7850	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7851	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7852	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7853	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7854
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7855	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7856	#extent: #(#Point 594 300)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7857	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7858	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7859	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7860	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7861	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7862	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7863	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7864	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7865	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7866	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7867	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7868	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7869	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7870	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7871	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7872	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7873	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7874	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7875	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7876	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7877	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7878	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7879	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7880	#label: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7881	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7882	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7883	#model: #emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7884	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7885	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7886	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7887
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7888	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7889	#extent: #(#Point 594 22)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7892	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7893	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7894	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7895	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7896	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7897	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7898	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7899	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7900	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7901	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7902	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7903	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7904	#label: 'Space after '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7905	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7906	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7907	#model: #spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7908	#translateLabel: true
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
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	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7914	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7915	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7916	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7917	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7918	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7919	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7920	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7921	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7922	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7923	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7924	#model: #blockArgumentsOnNewLine
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7927	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7928	#label: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7929	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7930	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7931	#model: #cStyleBlocks
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7934	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7935
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	#extent: #(#Point 594 22)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7940	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7941	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7942	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7943	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7944	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7945	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7946	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7947	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7948	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7949	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7952	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7953	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7954	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7955	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7956	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7957	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7958	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7959	#acceptOnPointerLeave: false
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	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7962	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7963	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7964	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7965	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7966	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7967	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7968	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7969	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7970	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7971	#model: #maxLengthForSingleLineBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7972	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7973	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7974	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7975	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7976	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7977	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7978
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7979	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7980	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7981	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7982	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7983	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7984	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7985	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7986	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7987	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7988	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7989	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7990	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7991	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7992	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7993	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7994	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7995	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7996	#extent: #(#Point 292 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7997	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7998	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7999	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8000	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8001	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8002	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8003	#extent: #(#Point 293 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8004	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8005	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8006
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8007	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8008	#extent: #(#Point 594 30)
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
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	#extent: #(#Point 594 150)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8014	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8015	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8018	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8019	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8022	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8023	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8024	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8025
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8026	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8027	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8028	! !
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8031
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8032	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8033
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8034	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8035	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8036	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8037	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8038	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8039	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8040	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8041	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8042	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8043	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8044	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8045	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8046	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8047	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8048	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8049	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8050	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8051	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8052	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8053
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8054	evaluateModified
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8055
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8056	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8057	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8058
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8059	help
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	"/ self warn:'no help available here'.
4419 d5de0cf67edb new source code format settings help file penk parents: 4405 diff changeset	8062	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
4398 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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8065	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8066	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8067	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8068	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8069	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8070	self emptyLineAfterTemporaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8071	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8072	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8073	self spaceAfterKeywordSelector
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8074	value:RBFormatter spaceAfterKeywordSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8075	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8076	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8077	self maxLengthForSingleLineBlocks
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8078	value:RBFormatter maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8080	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8081	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8082	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8083	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8084
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8085	reformat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8086
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8087	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8088	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8089	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine\|
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	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8094	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8095	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8096	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8097	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8098	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8099	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8100	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8101	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8102	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8103
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8104	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8105	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8106	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8107	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8108	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8109	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8110	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8111	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8112	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
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	tree := RBParser
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8115	parseMethod:self class exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8116	onError: [:aString :position \| nil].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8117	tree do:[:node \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8118	(node ~~ tree and:[node parent isNil]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	self error:'No parent for node'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8122	self editorText value:tree printString.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8123
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8124	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8125	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8126	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8127	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8128	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8129	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8130	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8131	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8132	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8133	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8134	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8135
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8136	resetToRBDefault
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	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8139	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8140	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8141	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8142	self spaceAroundTemporaries value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8143	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8144	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8148	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151	resetToStxDefault
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	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8154	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8155	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157	self spaceAroundTemporaries value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8159	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8161	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8162	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	self reformat.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8166	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8167
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8168	autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8169
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8170	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8171	autoFormat := currentUserPrefs autoFormatting asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8172	autoFormat onChangeSend:#evaluateModified to:self
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	^ autoFormat.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177	blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8178
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8179	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8181	blockArgumentsOnNewLine addDependent:self.
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	^ blockArgumentsOnNewLine.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186	cStyleBlocks
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	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195	editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8197	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8199	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8200	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8201	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8202
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8203	emptyLineAfterTemporaries
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	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8206	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8207	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8208	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8209	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8210	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8211
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8212	maxLengthForSingleLineBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8213
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8214	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8215	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8216	maxLengthForSingleLineBlocks addDependent:self.
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	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8219	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8220
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8221	spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8222
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8223	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8224	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8225	spaceAfterKeywordSelector addDependent:self.
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	^ spaceAfterKeywordSelector.
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	spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8231
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8232	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8233	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8234	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8235	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8236	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8237	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8238
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8239	spaceAroundTemporaries
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	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8242	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8243	spaceAroundTemporaries addDependent:self.
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	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8246	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8247
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8248	tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8249
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8250	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8251	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8252	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8253	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8254	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8255	! !
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8258
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8259	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8260	"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	8261
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8262	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8263
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8264	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8265	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8266	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8267	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8268	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8269	changedObject == self spaceAfterReturnToken or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8270	changedObject == self spaceAroundTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8271	changedObject == self tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8272	]]]]]]]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8273	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8274	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8275	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8276	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8277	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8278	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8279
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8280	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8281
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8282	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8283	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8284	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8285	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8286	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8287	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8288	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8289	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8290	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8291	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8292
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8293	postBuildTextEditor:aWidget
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8294
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8295	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8296	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8297	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8298
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8299	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8300
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8301	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8302
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8303	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8304	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8305	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8306	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8307	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8308	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8309	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8310	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8311	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8312	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8313	]]]]]]]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8314	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8317	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8318
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8319	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8320	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8321	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8322
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8323	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8324	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8325
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8326	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8327	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8328	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8329	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8330	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8331
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8332	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8333
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8334	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8335	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8336	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	8337	@@@@@@@@@@@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	8338	@@@QMTT5H0$@@@@@@@@@@@ F@@@@@@@@FT(>GPX@@@@@@@@@@@@@A @@@@@@@A!!HMR4H@@@@@@@@@@@@@@@@@@XNE1\ QSL]B0XFA @@@@@@@@@@@@@FGDAI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8339	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	8340	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	8341	@@@@@@@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	8342	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	8343	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8345	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8347	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8348	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8349	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8350
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8351	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8352	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8354	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8355	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8356	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8357	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8358	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8359
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8360	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8361
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8362	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8363	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8364	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8365	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8366	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8367	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8368	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8369	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8370	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8371	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8372	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8373	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8374	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8375	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8376	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8377	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8378	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8379	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8380	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8381	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8382	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8383	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8384	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8385	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8386	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8387	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8388	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8389	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8390	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8391	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8392	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8393	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8394	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8395	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8396	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8397	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8398	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8399	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8400	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8401	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8402	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8403	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8404	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8405	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8406	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8407	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8408	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8409
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8410	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8411	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8412	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8413	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8414	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8415	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8416	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8417	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8418	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8419	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8420	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8421	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8422	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8423	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8424	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8425	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8426	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8427	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8428	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8429	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8430	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8431	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8432	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8433	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8434	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8435	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8436	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8437	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8438	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8439	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8440	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8441	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8442	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8443	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8444	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8445
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8446	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8447	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8448	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8449	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8450	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8451	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8452	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8453	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8454	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8455	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8456	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8457	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8458	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8459	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8460	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8461	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8462	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8463	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8464	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8465	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8466	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8467	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8468	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8469	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8470	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8471	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8472	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8473	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8474	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8475	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8476	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8477	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8478
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8479	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8480	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8481	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8482	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8483	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8484	#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	8485	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8486	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8487	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8488	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8489	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8490	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8491	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8492	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8493	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8494	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8495	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8496	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8497	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8498	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8499	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8500	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8501	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8502	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8503	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8504	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8505	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8506	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8507	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8508	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8509	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8510	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8511	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8512	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8513	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8514	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8515	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8516	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8517	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8518	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8519	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8520	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8521	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8522	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8523	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8524	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8525	#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	8526	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8527	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8528	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8529	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8530	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8531	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8532	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8533	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8534	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8535	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8536	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8537	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8538	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8539	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8540	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8541	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8542	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8543	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8544	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8545	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8546	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8547	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8548	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8549	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8550	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8551	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8552	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8553	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8554	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8555	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8556	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8557	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8558	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8559	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8560	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8561	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8562	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8563	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8564	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8565	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8566	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8567
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8568	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8569	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8570	)
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	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8573	#extent: #(#Point 661 321)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8574	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8575	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8576	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8577	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8578	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8579	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8580	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8582	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8583	#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	8584	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8585	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8586	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8587	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8588	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8589	#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	8590	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8591	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8592	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8593	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8594	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8595	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8596	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8597	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8598	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8599
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8600	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8601	#extent: #(#Point 661 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8602	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8603	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8604	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8605	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8606	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8607	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8608	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8609	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8610	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8611	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8612	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8613	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8614	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8615	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8616	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8617	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8618	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8619	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8620	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8621	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8622	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8623	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8624	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8625	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8626	#extent: #(#Point 286 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8627	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8628	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8629
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8630	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8631	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8632	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8633	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8634	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8635	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8636	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8637	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8638	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8639	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8640	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8641	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8642	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8643	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8644	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8645	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8646	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8647
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8648	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8649	#extent: #(#Point 661 25)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8650	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8651	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8652	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8653	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8654	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8655	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8656	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8657	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8658	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8659	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8660	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8661	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8662	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8663	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8664	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8665
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8666	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8667	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8668	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8669	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8670
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8671	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8672	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8673	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8674	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8676	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8677	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8678	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8679
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8680	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8681	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8682	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8683
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8684	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8686	manager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8688	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8689	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8690
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8691	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8692
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8693	addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8694
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8695	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8696
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8697	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8698	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8699	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8700	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8701	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8702	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8703	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8704	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8705	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8706	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8707	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8708
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8709	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8710
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8711	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8712	manager isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8713	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8714	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8715	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8716	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8717
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8718	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8719	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8720	nm := self sourceCacheDir value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8721	nm size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8722	(fn := nm asFilename) exists ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8723	(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	8724	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8725	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8726	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8727	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8728	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8729	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8730	(fn exists
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8731	and:[fn isDirectory
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8732	and:[fn isReadable
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8733	and:[fn isWritable]]]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8734	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8735	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8736	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8737	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8738	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8739	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8740
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8741	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8742	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8743	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8744	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8745	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8746	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8747	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8748	self cvsBinDirectoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8749	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8750	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8751	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8752	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8753	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8754	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8755	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8756	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8757
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8758	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8759	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8760	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8761
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8762	condenseSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8764	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8765	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8767	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8769	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8770	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8772	flushSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8774	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8775	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8777	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8779	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8780	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8781	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8782
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8783	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8784	self hasManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8785	self useManager
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8786	value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8787	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8788	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8789	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8790	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8791	repository := manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8792	repository notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8793	repositoryHolder := repository asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8794	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8795	repositoryHolder := '' asValue
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8796	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8797	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8798	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8799	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8800	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8801	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8802	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8803	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8804	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8805	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8806	self cvsRootHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8807	value:CVSSourceCodeManager repositoryName ? '/files/CVS'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8808	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8809	self perModuleRootModule value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8810	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8811	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8812
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8813	removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8814
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8815	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8816
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8817	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8818	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8819	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8820	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8821	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8822	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8823	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8824
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8825	setupSourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8826
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8827	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8828	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8829	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8830	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8831	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8832	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8833	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8834	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8835
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8836	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8837
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8838	acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8839
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8840	acceptChannel isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8841	acceptChannel := TriggerValue new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8842	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8843	^ acceptChannel.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8844	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8845
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8846	checkClassesWhenCheckingIn
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8848	checkClassesWhenCheckingIn isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8849	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8850	checkClassesWhenCheckingIn onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8851	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8852	^ checkClassesWhenCheckingIn.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8853	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8854
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8855	cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8856	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8857
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8858	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8859	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8860	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8861	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8862
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8863	cvsBinDirectoryHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8864	cvsBinDirectoryHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8865	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8866	"/ cvsBinDirectoryHolder addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8867	"/ cvsBinDirectoryHolder onChangeSend:#cvsBinDirectoryHolderChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8868	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8869	^ cvsBinDirectoryHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8870	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8871
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8872	cvsIsSetup
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8874	cvsIsSetup isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8875	cvsIsSetup := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8876	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8877	"/ cvsIsSetup addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8878	"/ cvsIsSetup onChangeSend:#cvsIsSetupChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8879	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8880	^ cvsIsSetup.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8881	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8882
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8883	cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8884
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8885	cvsRootHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8886	cvsRootHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8887	cvsRootHolder onChangeSend:#evaluateModified to:self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8888	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8889	^ cvsRootHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8890	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8891
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8892	cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8893
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8894	cvsRootPrototypeList isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8895	OperatingSystem isUNIXlike ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8896	cvsRootPrototypeList := #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8897	'/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8898	'/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8899	'host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8900	'host:/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8901	':pserver:user@host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8902	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8903	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8904	OperatingSystem isMSDOSlike ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8905	cvsRootPrototypeList := #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8906	':local:c:\files\CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8907	':local:c:\CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8908	'host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8909	'host:/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8910	':pserver:user@host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8911	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8912	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8913	cvsRootPrototypeList := #('host:/files/CVS' 'host:/CVS' ':pserver:user@host:/files/CVS').
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8914	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8915	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8916	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8917	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8918	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8919
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8920	listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8921
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8922	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8923	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8924	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8925	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8926	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8927	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8928
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8929	localSourceFirst
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8930
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8931	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8932	localSourceFirst := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8933	localSourceFirst onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8934	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8935	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8936	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8937
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8938	perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8939	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8940
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8941	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8942	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8943	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8944	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8945
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8946	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8947	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8948	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8949	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8950	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8951	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8952	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8953	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8954
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8955	perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8956	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8957
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8958	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8959	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8960	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8961	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8962
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8963	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8964	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8965	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8966	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8967	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8968	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8969	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8970	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8971
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8972	removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8973
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8974	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8975	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8976	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8977	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8978	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8979
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8980	selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8981
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8982	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8983	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8984	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8985	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8986	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8987	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8988	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8989	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8990
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8991	sourceCacheDir
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8992
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8993	sourceCacheDir isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8994	sourceCacheDir := nil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8995	sourceCacheDir addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8996	sourceCacheDir onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8997	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8998	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8999	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9001	useManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9002
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9003	useManager isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9004	useManager := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9005	useManager onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9006	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9007	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9008	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9009
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9010	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9011
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9012	selectedPerModuleRootChanged
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9013
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9014	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9015
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9016	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9017	module := self selectedPerModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9018	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9019	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9020	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9021	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9022	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9023
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9024	sourceDirChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9026	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9027	\| nm fn\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9028	nm := self sourceCacheDir value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9029	nm size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9030	(fn := nm asFilename) exists ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9031	(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9032	fn makeDirectory;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9033	makeReadableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9034	makeWritableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9035	makeExecutableForAll.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9036	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9037	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9038	(fn exists
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9039	and:[fn isDirectory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9040	and:[fn isReadable
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9041	and:[fn isWritable]]]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9042	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9043	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9044	self warn:'Invalid sourceCache directory.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9045	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9046	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9047	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9048	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9049	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9050
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9051	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9052	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9054	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9055
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9056	changedObject == self sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9057	self sourceDirChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9058	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9059	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9060	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9061	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9062	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9063	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9064
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9065	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9066	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9067
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9068	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9069
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9070	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9071	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9072
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9073	(AbstractSourceCodeManager notNil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9074	and:[AbstractSourceCodeManager isLoaded not])
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9075	ifTrue:[AbstractSourceCodeManager autoload].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9076	repositoryHolder := '' asValue.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9077	rootsPerModule := Dictionary new
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9078	declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9079	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9080
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9081	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9082	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9083
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9084	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9086	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9087	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9088	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9090	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9092	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9093	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9094	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9095
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9096	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9098	hasManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9099	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9100	and:[AbstractSourceCodeManager isLoaded]
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	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9105	^ (
4563 91c1ee6edf45 * empty log message * penk parents: 4541 diff changeset	9106	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9107	((self hasManager and:[self useManager value]) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9108	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9109	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9110	) or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9111	(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9112	CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9113	CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9114	(Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9115	]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9116	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9117	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9118
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9119	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9121	standardStyles
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9123	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9124	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9125	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9126	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9127	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9128	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9129	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9130	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9131	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9132	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9133	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9134
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9135	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9136
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9137	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9138	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9139	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9140
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9141	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9142	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9143
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9144	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9145	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9146	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9147	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9148	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9149
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9150	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9151
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9152	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9153	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9154	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	9155	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9156	@@@@@@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	9157	@ 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	9158	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	9159	@ 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	9160	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	9161	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9162
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9163	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9165	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9166	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9167	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9168
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9169	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9170	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9172	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9173	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9174	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9175	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9176	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9178	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9179
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9180	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9181	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9182	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9183	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9184	#(#WindowSpec
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9185	#label: 'ViewStyle Selection'
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9186	#name: 'ViewStyle Selection'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9187	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9188	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9189	#bounds: #(#Rectangle 12 22 487 553)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9190	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9191	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9192	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9193	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9194	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9195	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9196	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9197	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9198	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9199	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9200	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9201	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9202	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9203	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9204	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9205	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9206	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9207	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9208	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9209	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9210	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9211	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9212	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9213	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9214	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9215	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9216	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9217	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9218	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9219	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9220	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9221	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9222	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9223	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9224	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9225	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9226	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9227	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9228	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9229	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9231	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9232	)
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	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9236
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9237	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9238
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9239	\| newStyle master requestor launcher\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9240
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9241	newStyle := self selectedStyle value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9242	master := self masterApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9243	master notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9244	requestor := master requestor.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9245	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9246
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9247	requestor notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9248	launcher := requestor.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9249	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9250	\| transcript \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9251	transcript := Transcript current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9252	transcript notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9253	\| app\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9254	app := transcript topView application.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9255	(app respondsTo:#reopenLauncher) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9256	launcher := app.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9257	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9258	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9259	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9260	self withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9261	Transcript showCR:'change style to ' , newStyle , ' ...'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9262	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9263	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9264	launcher notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9265	launcher reopenLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9266	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9267	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9268	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9269
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9270	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9272	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9273	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9275	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9277	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9278	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9279	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9280
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9281	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9282	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9283	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9284
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9285	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9286
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9287	infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9288
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9289	infoLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9290	infoLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9291	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9292	^ infoLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9293	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9295	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9297	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9298	noticeLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9299	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9300	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9301	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9303	selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9304
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9305	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9306	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9307	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9308	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9309	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9310	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9311
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9312	showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9313
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9314	showStandardStylesOnly isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9315	showStandardStylesOnly := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9316	showStandardStylesOnly addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9317	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9318	^ showStandardStylesOnly.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9319	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9321	styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9322
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9323	styleList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324	styleList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9325	styleList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9326	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9327	^ styleList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9328	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9330	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9332	changeInfoLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9333
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9334	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9335
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9336	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9338	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9339	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9340	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9341	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9342	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9343	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9344	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9345	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9346	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9347	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9348
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9349	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9350	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9351
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9352	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9354	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9355	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9357	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9358	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9359	self changeInfoLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9360	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364	super update:something with:aParameter from:changedObject
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	updateList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9368
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9371	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9374	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9375	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9376	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9377	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9378	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9379	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9380	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9382	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9383	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9384	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9385	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9387	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9388
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9389	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9390	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9391	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9392	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9393	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9395	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9396	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9397	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9398	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9399
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9400	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9402	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9403	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9404	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9406	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9407
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9408	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9409
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9410	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9411
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9412	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9413	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9414	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9415	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9416	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9417	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9418	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9419	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9420	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9421	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9422	resourceDir := Smalltalk getSystemFileName:'resources'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9423	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9424
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9425	resourceDir isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9426	self warn:'no styles found (missing ''resources'' directory)'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9427	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9428	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9429	styleDirectoryContents := resourceDir asFilename directoryContents.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9430	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9431	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9432	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9433	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9434	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9435	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9436	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9438	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9440	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9442	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9443	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9444
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9445	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
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	emphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9448
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	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9451	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9452	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9453	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9454	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9455	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9456	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9457	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9458	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9459	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9460	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9461	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9462	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9463	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9464	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9465	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9466	)
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	exampleText
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	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9472	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9473	some stupid code to show the current settings"
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	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9476
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9477	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9478	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9479	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9480	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9481	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9482	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9483	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9484	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9485	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9486	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9487	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9488	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9489
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9490	fontList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9491
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9492	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9493	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9494	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9495	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9496	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9497	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9498	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9499	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9500	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9501	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9502	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9503	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9504	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9505	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9506	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9507	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9508	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9509	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9510	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9511
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9512	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9513
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9514	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9515	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9516	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9517
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9518	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9519	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9520
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9521	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9522	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9523	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9524	Icon flushCachedIcons
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9527	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9528
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9529	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9530	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9531	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	9532	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	9533	@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	9534	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	9535	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	9536	@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	9537	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	9538	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9539
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9540	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9541
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9542	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9543	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9544	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9545
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9546	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9547	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9548
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9549	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9550	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9551	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9552	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9553	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9554
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9555	<resource: #canvas>
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	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9559	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9560	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9561	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9562	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9563	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9564	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9565	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9566	#bounds: #(#Rectangle 16 42 711 651)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9567	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9568	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9569	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9570	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9571	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9572	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9573	#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	9574	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9575	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9576	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9577	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9578	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9579	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9580	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9581	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9582	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9583	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9584	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9585	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9586	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9587	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9588	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9589	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9590	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9591	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9592	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9593	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9594	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9595	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9596	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9597	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9598	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9599	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9600	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9601	#model: #fullSelectorCheck
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	#extent: #(#Point 685 22)
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	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9606	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9607	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9608	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9609	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9610	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9611	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9612	#extent: #(#Point 685 280)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9613	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9614	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9615	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9616	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9617	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9618	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9619	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9620	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9621	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9622	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9623	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9624	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9625	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9626	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9627	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9628
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9629	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9630	#extent: #(#Point 685 35)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9633	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9634	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9635	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9636	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9637	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9638	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9639	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9640	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9641	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9642	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9643	#useIndex: false
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	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9646	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9647	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9648	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9649	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9650	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9651	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9652	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9653
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9654	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9655	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9656	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9657	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9658	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9659	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9660	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9661	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9662	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9663	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9664	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9665	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9666	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9667	#labelsAreColored: true
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	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9670	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9671	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9672	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9673	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9674	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9675	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9676	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9677
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9678	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9679	#extent: #(#Point 685 44)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9682	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9683	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9684	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9685	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9686	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9687	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9688	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9689	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9690	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9691	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9692	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9693	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9694	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9695	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9696	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9697	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9698	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9699	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9700	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9701	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9702	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9703
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9704	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9705	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9706	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9707	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9710	#extent: #(#Point 695 609)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9713
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9714	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9715	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9717
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9718	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9719	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9720	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9721
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9722	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9723
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9724	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9725
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9726	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9727	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9728	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9729	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9730
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9731	evaluateModified
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9732
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9733	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9734	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9735
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736	formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9739	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741	"*** Please change as required and accept in the browser."
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	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9754	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9755	\|colorList resetListLoc\|
4398 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	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9758	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9759	reset;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9760	current) declareAllFrom:oldUserPreferences
4398 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	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9766	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9767	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9773	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774	!
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	recolor
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	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9784	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9785	self coloredText value:text
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9788	resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9789
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9790	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793	currentUserPrefs perform:resetSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800	coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9802	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803	coloredText := ValueHolder new.
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	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9806	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808	fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	fullSelectorCheck isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	fullSelectorCheck onChangeSend:#evaluateModified to:self
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	^ fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9815	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9816
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9817	resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9818
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9819	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821	"/ 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	9822	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9823	"/ resetList onChangeSend:#resetListChanged to:self.
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	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9826	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9827
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9828	resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9829
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9830	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9831	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9832	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9833	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9834	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9835
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836	syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9838	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840	syntaxColor addDependent:self.
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	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9843	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9844
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9845	syntaxColoring
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	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9849	syntaxColoring addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9850	syntaxColoring onChangeSend:#evaluateModified to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9851	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9852	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9853	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9855	syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9856	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9862
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9863	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9865	"/ 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	9866	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9867	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9868	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9869	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9870	!
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	syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9873
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9874	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9875	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9876	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9877	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9878	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9879	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9880	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9882	syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9883	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9884
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9885	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9886	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9887	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9888	"*** (and replace this comment by something more useful ;-)"
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	syntaxEmphasisList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9891	syntaxEmphasisList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9892	"/ 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	9893	"/ syntaxEmphasisList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9894	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9895	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9896	^ syntaxEmphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9897	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9898
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9899	syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9900
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9901	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9902	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9903	syntaxEmphasisSelection addDependent:self.
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	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9906	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9907
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9908	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9909
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9910	getEmphasis:anEmphasisOrSymbol
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9911	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9912
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9913	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9914	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9915
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9916	syntaxColorChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9917
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9918	currentUserPrefs at:(self syntaxColorSelector value) put:(self syntaxColor value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9919	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9920	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9921	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9922
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9923	syntaxElementSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9924
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9925	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9926
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9927	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9928	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9929	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9930	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9931	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9932
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9933	syntaxEmphasisSelectionChanged
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	\|em\|
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	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9938	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9939	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9940	self evaluateModified.
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	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9944	"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	9945
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9946	"stub code automatically generated - please change as required"
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	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9949	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9950	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9951	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9952	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9953	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9954	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9955	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9956	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9957	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9958	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9959	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9960	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9961	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9962	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9963	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9964
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9965
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9966	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9967	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9968
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9969	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9970
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9971	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9972	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9973	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9974
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9975	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9976	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9977	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9978	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9979	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9980
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9981	initializeEmphasisDictionary
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	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9984	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9985	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9986	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9987	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9988	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9989	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9990	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9992	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9993	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9994	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	9995	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	9996	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9997	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9998	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	9999	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	10000	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10001	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10002	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	10003	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	10004	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10005	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10006	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	10007	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	10008	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10009	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10010	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10011	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10012	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10013	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10014	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10015	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10016	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10017	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10018
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10019	release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10020
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10021	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10022	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10023	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10024	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10025	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10026
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10027	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10028
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10029	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10030
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10031	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10032
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10033	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10034	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10035	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10036	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10037	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10038	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10039	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10040	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10041	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10042	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10043	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10044	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10045	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10046	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10047	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10048	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10049
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10050	syntaxColorSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10051
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10052	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10053	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10054
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10055	syntaxColorSelectorForElement:aSyntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10056
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10057	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10059
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10060	syntaxEmphasisSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10061
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10062	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10063	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10064
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10065	syntaxEmphasisSelectorForElement:anEmElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10066
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10067	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10068	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10069
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10070	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10071
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10072	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10073	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10074	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10075
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10076	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10077	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10078
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10079	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10080	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10081	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10082	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10083	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10084
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10085	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10086
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10087	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10088	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10089	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	10090	@@@@@@@@@@@@A XFA @@@@@@@@@@@@@@@@@@@@@@A!!HRCPX@@@@@@@@@@@@@@@@@@@@@A!!H.KP4MA @@@@@@@@@@@@@@@@@@@@XRPB<#H0L@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10091	@@@@@@@FD$@/H2LC@@@@@@@@@@@@@@@@@@@@A!!H6LRH"@P@@@@@@@@@@@@@@@@@@@@XFC#LKB0D@@@@@@@@@@@@@@@@@@@@@@@XZ@PD@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10092	@@@@@@@FF DA@@@@@@@@@@@@@@@@@@@@@@@@A!!(A@P@@@@@@@@@@@@@@@@@@@@\GA3@ZDQDAAPT@@@@@@@@@@@@@@@\;QDP''EQ@PE@$IAP@@@@@@@@@@@@@G
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10093	N4QDI1TPDAPIBPT@@@@@@@@@@@@@A31CP3(UJ"( B (D@@@@@@@@@@@@@@\>Q4\8IR0,J1@PA@@@@@@@@@@@@@@GO$]GNBT,KB,PD@P@@@@@@@@@@@@@A35H
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10094	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	10095	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	10096	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10097
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10098	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10099
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10100	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10101	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10102	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10104	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10105	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10107	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10108	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10109	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10110	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10111	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10113	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10114
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10115	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10116	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10117	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10118	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10119	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10120	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10122	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10123	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10125	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10126	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10127	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10128	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10129	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10130	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10131	#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	10132	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10133	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10134	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10135	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10136	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10137	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10138	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10139	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10140	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10141	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10142	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10143	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10144	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10145	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10146	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10147	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10148	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10149	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10150	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10151	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10152	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10153	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10154	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10155	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10156	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10157	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10158	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10159	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10160	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10161	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10162	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10163	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10164	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10165	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10166	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10167	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10168	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10169	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10170	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10171	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10172	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10173	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10174	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10175	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10176	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10177	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10178	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10179	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10180	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10181	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10182	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10183	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10184	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10185
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10186	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10187	#extent: #(#Point 551 133)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10188	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10189	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10190	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10191	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10192	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10193	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10194	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10195	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10196	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10197	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10198	#label: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10199	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10200	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10201	#model: #updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10202	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10203	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10204	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10205	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10206	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10207	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10208	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10209	#translateLabel: true
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	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10212	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10213	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10214	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10215	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10216	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10217	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10218	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10219	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10220	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10221	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10222	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10223	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10224	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10225	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10226	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10227	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10228	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10229
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10230	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10231	#extent: #(#Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10232	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10233	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10234
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10235	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10236	#extent: #(#Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10237	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10238	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10240	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10241	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10242	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10243
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10244	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10245	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10246	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10247
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10248	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10249
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10250	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10251
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10252	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10253	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10254	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10255	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10256	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10257	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10258	Class updateChanges:self updChanges value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10259	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10260
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10261	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10262
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10263	self modifiedChannel value:(self hasUnsavedChanges).
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	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10268	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10269	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10270
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10271	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10272	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10273	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10274	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10275	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10276	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10277	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10278	self updChanges value:Class updatingChanges.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10279	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10280	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10282	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10283
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10284	changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10285
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10286	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10287	changeFileName := ObjectMemory nameForChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10288	changeFileName onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10289	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10290	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10291	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10292
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10293	classInfos
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10295	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10296	classInfos := Object infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10297	classInfos onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10298	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10299	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10300	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10301
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10302	displayErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10303
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10304	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10305	displayErrors := DeviceWorkstation errorPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10306	displayErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10307	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10308	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10309	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10310
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10311	logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10312
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10313	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10314	logDoits := Smalltalk logDoits asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10315	logDoits onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10316	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10317	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10318	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10319
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10320	updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10321
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10322	updChanges isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10323	updChanges := Class updatingChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10324	updChanges onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10325	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10326	^ updChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10327	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10328
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10329	vmErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10330
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10331	vmErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10332	vmErrors := ObjectMemory debugPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10333	vmErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10334	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10335	^ vmErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10336	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10337
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10338	vmInfo
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10339
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10340	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10341	vmInfo := ObjectMemory infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10342	vmInfo onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10343	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10344	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10345	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10347	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10348
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10349	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10350
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10351	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10352	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10353	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10354
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10355	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10357	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10359	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10360	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10361	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10362	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10363	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10364	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10365	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10366	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10367
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10368	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10369
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10370	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10371	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10372	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10373
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10374	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10375	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10376
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10377	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10378	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10379	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10380	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10381	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10382
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10383	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10384
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10385	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10386	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10387	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	10388	@ 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	10389	@@@@@@@D@ XFA @@@@@@@@@@@@HB@@@@@@@@@@HC@ XFA @@@@@@@@@B@ @@@@@@@@@@@@\BCPXF@@@@@@@@@ H@@@@RB @@@@@@@ <MA @@@@@@@@HB@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10390	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	10391	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	10392	@@@@@@@@@@@@D 4@@@HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10393	@ 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	10394	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10395
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10396	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10398	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10399	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10400	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10402	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10403	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10404
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10405	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10406	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10407	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10408	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10409	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10411	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10412
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10413	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10414	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10415	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10416	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10417	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10418	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10419	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10420	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10421	#max: #(#Point 1024 768)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10422	#bounds: #(#Rectangle 16 42 511 513)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10423	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10424	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10425	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10426	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10427	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10428	#name: 'VerticalPanel2'
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10429	#layout: #(#LayoutFrame 0 0 0 0 358 0 234 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10430	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10431	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10432	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10433	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10434	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10435	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10436	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10437	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10438	#label: 'Use the New Changes Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10439	#name: 'ChangesBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10440	#model: #useNewChangesBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10441	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10442	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10443	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10444	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10445	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10446	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10447	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10448	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10449	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10450	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10451	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10452	#label: 'Use the New VersionDiff Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10453	#name: 'VersionDiffBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10454	#model: #useNewVersionDiffBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10455	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10456	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10457	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10458	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10459	#label: 'Use the New File Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10460	#name: 'NewFileBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10461	#model: #useNewFileBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10462	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10463	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10464	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10465	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10466	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10467	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10468	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10469	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10470	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10471	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10472	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10473	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10474	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10475	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10476	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10477	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10478	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10479	#(#CheckBoxSpec
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10480	#label: 'Use the New Process Monitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10481	#name: 'UseNewProcessMonitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10482	#model: #useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10483	#translateLabel: true
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10484	#extent: #(#Point 489 25)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10485	)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10486	#(#CheckBoxSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10487	#label: 'Use Hierarchical Inspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10488	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10489	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10490	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10491	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10492	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10493	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10494	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10495	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10496	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10497	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10498	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10499	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10500	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10501	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10502	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10503	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10504	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10505	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10506	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10507	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10508	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10509	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10510	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10511	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10512	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10513	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10514	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10515	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10516	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10517	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10518	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10519	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10520	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10521	#acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10522	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10523	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10524
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10525	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10526	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10527	)
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	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10531	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10532	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10533	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10535	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10536	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10537	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10539	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10540
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10541	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10542
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10543	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10544
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10545	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10546	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10547	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10548	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10549	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10550	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10551	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10552	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10553	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10554	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10555	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10556	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10557	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10558	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10559	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10560	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10561	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10562	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10563	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10564	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10565	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10567	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10568	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10569	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10570	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10571	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10572	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10573	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10574	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10575	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10576	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10577	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10578	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10579	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10580	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10581	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10582	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10583	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10584	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10585	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10586	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10587	currentUserPrefs := UserPreferences current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10588	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10589
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10590	evaluateModified
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10591
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10592	self modifiedChannel value:(self hasUnsavedChanges).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10593	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10594
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10595	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10596
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10597	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10598	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10599
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10600	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10601	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10602	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10603	self transcriptBufferSize value:Transcript current lineLimit.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10604	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10605	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10606	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10607	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10608	self useNewVersionDiffBrowser
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10609	value:currentUserPrefs useNewVersionDiffBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10610	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10611	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10612	self useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10613	value:currentUserPrefs useNewSettingsApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10614	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10615	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10617	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10618
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10619	showClockInLauncher
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10621	showClockInLauncher isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10622	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10623	showClockInLauncher onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10624	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10625	^ showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10626	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10628	transcriptBufferSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10629
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10630	transcriptBufferSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10631	transcriptBufferSize := Transcript current lineLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10632	transcriptBufferSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10633	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10634	^ transcriptBufferSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10635	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10636
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10637	useNewChangesBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10639	useNewChangesBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10640	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10641	useNewChangesBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10642	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10643	^ useNewChangesBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10644	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10646	useNewFileBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10648	useNewFileBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10649	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10650	useNewFileBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10651	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10652	^ useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10653	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10654
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10655	useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10656
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10657	useNewFileDialog isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10658	useNewFileDialog := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10659	useNewFileDialog onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10660	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10661	^ useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10662	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10663
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10664	useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10666	useNewInspector isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10667	useNewInspector := currentUserPrefs useNewInspector asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10668	useNewInspector onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10669	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10670	^ useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10671	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10672
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10673	useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10674
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10675	useNewSettingsApplication isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10676	useNewSettingsApplication := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10677	useNewSettingsApplication onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10678	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10679	^ useNewSettingsApplication.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10680	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10681
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10682	useNewSystemBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10684	useNewSystemBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10685	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10686	useNewSystemBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10687	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10688	^ useNewSystemBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10689	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10691	useNewVersionDiffBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10693	useNewVersionDiffBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10694	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10695	useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10696	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10697	^ useNewVersionDiffBrowser.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10698	!
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10699
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10700	useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10701
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10702	useProcessMonitorV2 isNil ifTrue:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10703	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10704	useProcessMonitorV2 onChangeSend:#evaluateModified to:self
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10705	].
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10706	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10707	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10709	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10711	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10713	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10714	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10715	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10716	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10717	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10718	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10719	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10720	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10721	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10722	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10723	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10724
4226 44e2f83cc526 initial checkin penk parents: diff changeset	10725	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	10726
44e2f83cc526 initial checkin penk parents: diff changeset	10727	version
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	10728	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.31 2003-02-20 16:31:56 penk Exp $'
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	10729	! !

author	penk
	Thu, 20 Feb 2003 17:32:16 +0100
changeset 4581	d61fec7a9e4f
parent 4574	bcc59a552bca
child 4598	330907eab7e0
permissions	-rw-r--r--