hg/stx-libtool: AbstractSettingsApplication.st@98f77618ef6f (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
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	4	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel requestor'
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
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	71	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	72	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	73	hasCreatedServerChannel'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	74	classVariableNames:''
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	75	poolDictionaries:''
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	76	privateIn:AbstractSettingsApplication
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	77	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	78
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	79	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	80	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	81	labelTextHolder functionKeyList rawKeyList mappings'
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:#LanguageSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	88	instanceVariableNames:'languageHolder languageList listOfLanguages translatedLanguages
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	89	noticeLabelHolder currentLanguageChannel currentLanguageLabel'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	90	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	91	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	92	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	93	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95	AbstractSettingsApplication subclass:#MemorySettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	96	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	97	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	98	igcFreeAmount stackLimit supportsJustInTimeCompilation'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	99	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	100	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	101	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	102	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	104	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	105	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	106	windowMigrationPassword windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	107	enablePasswordCheck'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	108	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	109	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	110	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	111	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	112
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	113	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	114	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	115	activateOnClick shadows opaqueVariablePanelResize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	116	formatHostNameinWindowLabels opaqueTableColumnResize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	117	hostNameInLabelHolder showAccelerators newWindowLabelFormat
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	118	formatHostNameWindowLabel'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	119	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	120	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	121	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	122	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	123
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	124	AbstractSettingsApplication subclass:#OsiSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	125	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	126	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	127	osiCMISEMessageLogging osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	128	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	129	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	130	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	131	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	132	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	133
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	134	AbstractSettingsApplication subclass:#PrinterSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	135	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	136	landscape pageFormatList pageFormat unitList leftMargin
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	137	possiblePrinters printerType printerTypeSelection
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	138	printCommandList commandList printCommand enableFormat
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	139	enablelandscape enableMargins enableColorBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	140	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	141	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	142	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	143	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	144
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	145	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	146	instanceVariableNames:'dynamicPrios preemptive'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	147	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	148	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	149	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	150	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	151
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	152	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	153	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	154	rDoitErrorDebugging rDoitServerPort'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	155	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	156	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	157	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	158	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	159
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	160	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	161	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	162	stcDefines stcLibraries stcOptions stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	163	stcCompilationSelection stcCompilationList'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	164	classVariableNames:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	165	poolDictionaries:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	166	privateIn:AbstractSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	167	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	168
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	169	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	170	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	171	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	172	blockArgumentsOnNewLine spaceAfterReturnToken
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	173	spaceAroundTemporaries oldUserPreferences reformatLocked'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	174	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	175	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	176	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	177	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	178
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	179	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	180	instanceVariableNames:'sourceCacheDir useManager condenseSourceCache
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	181	syntaxColorConfiguration setupSourceCodeManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	182	checkClassesWhenCheckingIn formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	183	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	184	manager repository listOfModules cvsRootPrototypeList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	185	addPerModuleRoot removeEnabled perModuleRootModule acceptChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	186	removePerModuleRoot perModuleRoot cvsRootHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	187	selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule'
4286 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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	193	AbstractSettingsApplication subclass:#StyleSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	194	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	195	styleDirectoryContents infoLabelHolder noticeLabelHolder'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	196	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	197	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	198	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	199	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	200
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	201	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	202	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	203	fullSelectorCheck syntaxColoring oldUserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	204	syntaxFontSelector syntaxFonts syntaxElementList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	205	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	206	emphasisDictionary resetListDictionary'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	207	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	208	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	209	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	210	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	211
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	212	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	213	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	214	changeFileName'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	215	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	216	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	217	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	218	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	220	AbstractSettingsApplication subclass:#ToolsSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	221	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	222	showClockInLauncher useNewChangesBrowser useNewFileBrowser
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	223	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	224	useProcessMonitorV2'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	225	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	226	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	227	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	228	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	229
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	230	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	231
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	232	windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	233
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	234	self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	235	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	236
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	237	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	238
68504047f229 * empty log message * penk parents: 4286 diff changeset	239	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	240
68504047f229 * empty log message * penk parents: 4286 diff changeset	241	^ AbstractLauncherApplication classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	242	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	243
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	244	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	245
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	246	requestor
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	247	"return the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	248
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	249	^ requestor
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	250	!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	251
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	252	requestor:something
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	253	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	254
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	255	requestor := something.
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	256	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	257
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	258	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	259
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	260	evaluateModified
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	261
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	262	self modifiedChannel value:(self hasUnsavedChanges).
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	263	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	264
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	265	saveRequest
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	266	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	267
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	268	(self hasUnsavedChanges) ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	269	result := self confirmWithCancel:(resources
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	270	string:'Save changed ' , settingsString , ' ?').
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	271	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	272	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	273	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	274	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	275	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	276	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	277	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	278	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	279	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	280	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	281	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	282
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	283	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	284	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	285	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	286	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	287	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	288	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	289
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	290	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	291
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	292	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	293
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	294	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	295	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	296	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	297	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	298	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	299
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	300	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	301
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	302	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	303	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	304	resources := self class classResources.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	305	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	306	settingsString := (UISpecification from:(self class windowSpec)) window label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	307	self readSettings.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	308	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	309
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	310	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	311
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	312	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	313
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	314	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	315	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	316
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	317	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	318
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	319	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	320	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	321
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	322	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	323
289972d3e455 * empty log message * penk parents: 4319 diff changeset	324	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	325	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	326	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	327	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	328
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	329	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	330	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	331	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	332
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	333	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	334
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	335	self basicSaveSettings.
4657 a59ba78d52d2 reset UserPrefernces instance on saveSettings because Userpreferences current may change penk parents: 4656 diff changeset	336	currentUserPrefs := UserPreferences current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	337	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	338	! !
44e2f83cc526 initial checkin penk parents: diff changeset	339
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	340	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	342	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	343
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	344	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	345	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	347	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	348
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	349	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	350	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	351
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	352	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	353
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	354	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	355	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	356	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	357
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	358	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	359	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	360
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	361	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	362	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	363	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	364	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	365	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	366
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	367	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	368
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	369	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	370	constantNamed:#'AbstractSettingsApplication::CompilerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	371	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	372	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	373	@@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	374	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	375	@@@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	376	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	377	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	378	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	379
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	380	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	382	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	383	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	384	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	386	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	387	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	388
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	389	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	390	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	391	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	392	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	393	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	395	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	396
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	397	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	398	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	399	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	400	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	401	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	402	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	403	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	404	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	405	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	406	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	407	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	408	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	409	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	410	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	411	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	412	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	413	#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	414	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	415	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	416	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	417	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	418	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	419	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	420	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	421	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	422	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	423	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	424	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	425	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	426	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	427	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	428	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	429	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	430	#extent: #(#Point 600 3)
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 Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	434	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#model: #allowUnderscore
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 Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#model: #allowDollar
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 VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#model: #allowQualifiedNames
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#model: #allowOldStyleAssignment
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	#label: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	480	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	484	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	498	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	499	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	500	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	501	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	513	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	514	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	515	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	516	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	#model: #warnUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	524	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	525	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	526	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	527	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	528	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	529	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	530	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	531	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	533	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	534	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	535	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	536	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	537	#extent: #(#Point 600 22)
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	540	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	541	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	542	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	543	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	544	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	545	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	546	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	547	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	548	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	549	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	550	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	551	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	552	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	553	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	554	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	555	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	556	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	557	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	558	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	559	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	560	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	561	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	562	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	563	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	564
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	565	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	566	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	567	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	568
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	569	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	570	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	571	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	572	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	573	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	574	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	575	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	576	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	577	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	578	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	579	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	580	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	581	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	582	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	583	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	584	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	585	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	586	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	587	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	588	#extent: #(#Point 600 22)
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	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	591	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	592	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	593	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	594	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	595	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	596	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	597	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	598	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	599	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	600	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	601	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	602	#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	603	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	604	#adjust: #right
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	605	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	606	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	607	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	608	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	609	#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	610	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	611	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	612	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	613	#useIndex: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	614	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	615	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	616
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	617	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	618	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	619	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	620	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	621
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	622	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	623	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	624	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	626	)
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
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	630	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	631
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	632	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	633
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	634	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	635	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	636	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	637	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	638	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	639	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	640	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	641	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	642	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	643	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	644	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	645	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	646	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	647	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	648	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	650	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	651	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	652	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	653	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	654	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	655	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	657	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	659	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	660	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	661	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	662	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	663	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	664	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	665	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	666	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	667	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	668	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	669
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	670	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	671
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	672	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	673	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	674
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	675	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	676	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	677	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	678	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	679	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	680	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	681	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	682	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	683	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	684	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	685	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	686	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	687	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	688	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	689	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	690	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	691	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	692	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	693	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	694	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	695	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	696	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	697	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	698	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	699	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	700	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	701	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	702	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	703	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	704	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	705	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	706	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	707	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	708	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	709	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	710	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	711	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	713	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	715	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	716	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	717
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	718	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	720	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	722	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	723	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	724	allowDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	725	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	726	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	727	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	728	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	730	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734	allowDolphinExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	allowOldStyleAssignment onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752	allowQualifiedNames onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761	allowReservedWordsAsSelectors onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770	allowSqueakExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	771	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	772	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	773	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779	allowUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	781	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	782	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	790	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	792
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806	constantFoldingSelection := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	constantFoldingSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	840	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	841	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	842	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846	fullDebugSupport onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	immutableArrays onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	858	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	859
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	860	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	867	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	868	justInTimeCompilation onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	869	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877	warnCommonMistakes onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	warnCompatibility onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888	^ warnCompatibility.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895	warnDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904	warnOldStyle onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	warnSTX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	warnUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	warnUnusedVars onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941	warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	warnings onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	947	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	changedObject == self warnings ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955	self warnings value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	972	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	977	(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	981	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	982	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	983	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	984	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	985	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	986	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	987	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	988	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	989	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	990	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	991	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	992	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	993	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	994	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	995	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	996	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	997	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	998
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	999	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1001	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1002	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1003
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1004	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1007	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1008
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1009	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1010	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1011
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1012	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1013
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1014	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1015	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1016	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1017
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1018	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1019	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1020
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1021	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1022	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1023	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1024	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1025	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1026
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1027	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1028
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1029	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1030	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1034	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1035	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1039	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1040	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1044	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1045	#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	1046	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1049	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1050	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1051	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1052	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1053	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1054	#name: 'VerticalPanel5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1055	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1056	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1057	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1058	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1059	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1061	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1062	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1068	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1069	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1070	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1071	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1078	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1079	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1080	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1081	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1082	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1083	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1084	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1085	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1086	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1087	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1088	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1090	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1091	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1093	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094	#extent: #(#Point 600 30)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1097	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1098	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1099	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1100	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1101	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1102	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1103	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1104	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1105	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1108	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1109
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1110	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1111	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1112	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1113	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1114
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1115	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1116	#extent: #(#Point 600 320)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1117	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1118	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1120	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1122	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1123
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1124	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1125	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1126	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1127
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1128	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1129
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1130	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1131
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1132	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1133	self showErrorNotifier value ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1134	Exception emergencyHandler:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1135	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1136	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1137	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1138	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1139	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1140
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1141	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1142
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1143	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1144	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1147	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1148	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1149	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1150	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1151	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1152	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1153	self modifiedChannel value:false
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1156	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
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	allowSendMailFromDebugger
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	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1161	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1162	allowSendMailFromDebugger 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	^ allowSendMailFromDebugger.
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	showErrorNotifier
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	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1170	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171	showErrorNotifier onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1175
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1176	showVerboseStack
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	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1179	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1180	showVerboseStack onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1181	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1182	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1183	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1184
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1185	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1186
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1187	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1188	"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	1189
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1190	"stub code automatically generated - please change as required"
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	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1193	"/ ^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1194	"/ ].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1195
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1196	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1197	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1198
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1199	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1200
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1201	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1202
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1203	^ (
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1204	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1205	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1206	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1207	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1208	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1209	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1210
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1211	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1212
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1229
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1230	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1232
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1233	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1235	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1236	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1237
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1238	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1240	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1241	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1242
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1243	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1244
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1245	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1247	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1248
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1249	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1250	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1251
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1252	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1253	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1254	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1255	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1256	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1257
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1258	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1259
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1260	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1261	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1262	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	1263	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1264	@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	1265	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	1266	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	1267	ER ''I2\''EQTUEQTUEP@@@@@@@@@@@@@(I2\''I1TU@@@@@@@@@@@@@@@@JB\''I2\''I2\''I2\U@@@@@@@@@@@@@B ''I2\''I2\''I2\''EP@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1268	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	1269	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1270
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1271	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1274	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1281	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1282	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1283	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1284	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1297	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1319	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	#useIndex: true
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: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#layout: #(#LayoutFrame 0 0 72 0 205 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: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	#model: #sizeX
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
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1341	#acceptOnPointerLeave: true
4286 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: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#layout: #(#LayoutFrame 314 0 72 0 360 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	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1359	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	#labelChannel: #useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	#label: 'Use Fix Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1445	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1448	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1449	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1450	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1455	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1456	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1457
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1458	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1459	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1460	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1461
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1462	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1463
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1464	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1465
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1466	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1467
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1468	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1469	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1470	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1471	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1472	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1473	Color getColorsRed:4 green:8 blue:4 on:screen
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	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1476	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1477	].
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	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1480	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1481	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1482	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1483	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1484	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1485	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1486	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1487	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1488	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1489	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1490	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1491	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1492
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1493	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1494	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1495	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1496	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1497
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1498	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1499	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1500	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1501
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1502	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1503	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1504
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1510
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1511	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1512	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1515	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1516	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1517	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1518	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1519	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1520	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1521	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1522	self clipEncodingListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1523	value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1524	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1525	self modifiedChannel value:false
4286 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	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545	clipEncodingListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1548	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553	deepIcons := screen supportsDeepIcons asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	deepIcons onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	^ ditherList.
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	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	ditherListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	isColorMonitor := screen hasColors asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	isColorMonitor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	monitorSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	monitorSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632	sizeX changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	sizeX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	sizeY changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	sizeY onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	useFixGrayPalette := screen fixGrayColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653	useFixGrayPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	useFixPalette := screen fixColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	useFixPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	visualIsPseudoColor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	self sizeY value:(sizes at:2).
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	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1729	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1732	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1742
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1744
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1745	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1755	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1756	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1768	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1769
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	hasUnsavedChanges
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	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1794	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1795	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1796	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1798	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1799	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1800	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1801	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1802	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1803	]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1804	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1805	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1806
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1807	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1808
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1809	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1810	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1811	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1812
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1813	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1814	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1815
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1816	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1817	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1818	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1819	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1820	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1821
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1822	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1823
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1824	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1825	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1826	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	1827	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1828	@@(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	1829	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	1830	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	1831	@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	1832	@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	1833	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1834
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1845	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1846	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1847	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1857	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1858	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1860	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1861	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1868	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#verticalLayout: #top
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1916	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1918	#extent: #(#Point 600 23)
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	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1923	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1924	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1925	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1927	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1928	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1929	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1930
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1932	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1933	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1934
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1935	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1936
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1937	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1938
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1939	UserPreferences current st80EditMode:(self st80EditingMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1940	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1941	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1942	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1943	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1944	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1945	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1946	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1947	UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1948	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1949	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1950
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1951	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1953	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1955	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1956
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1957	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1958	self st80EditingMode value:UserPreferences current st80EditMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1959	self st80DoubleClickSelectMode value:TextView st80SelectMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1960	self tabsIs4
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1961	value:(ListView userDefaultTabPositions = ListView tab4Positions).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1962	self searchDialogIsModal
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1963	value:UserPreferences current searchDialogIsModal.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1964	self startTextDragWithControl
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1965	value:UserPreferences current startTextDragWithControl.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1966	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1967	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974	searchDialogIsModal := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975	searchDialogIsModal onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1976	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	st80DoubleClickSelectMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984	st80DoubleClickSelectMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992	st80EditingMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993	st80EditingMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001	startTextDragWithControl := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	startTextDragWithControl onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2007	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2008
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010	tabsIs4 := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	tabsIs4 onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	"/ ^ self.
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	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2054	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2055	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2056	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2057	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2058	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2059	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2060	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2062	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2063
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2064	widgetList
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	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2068	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2069	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2070	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2071	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2072	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2073	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2074	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2075
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2076	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2079	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2080	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2083	the ImageEditor may not be able to read the specification."
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	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2086	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2087	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2088	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2089	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2090
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2091	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2094	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2095	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	2096	@@@@@@@@@@@@@@@@@@@@@!!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	2097	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	2098	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	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	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2102	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2103	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2106	the ImageEditor may not be able to read the specification."
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	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2109	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2110	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2111	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2112	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2113
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2114	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2115
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2116	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2117	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2118	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	2119	@@@@@@@@@@@@@@@@@@@@@!!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	2120	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	2121	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	2122	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2123
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2124	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2125
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2126	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2127
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2134	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2138	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2139	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2140	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2142	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2143	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2145	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2146	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2147	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2148	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2149	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2150
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2151	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2152
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2153	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2154	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2155	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2156	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2157	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2158	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2159	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2160	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2161	#max: #(#Point 1024 768)
4727 3e5f6ddd50d8 no bold labels Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	2162	#bounds: #(#Rectangle 16 46 512 658)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2163	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2164	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2165	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2166	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2167	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2168	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2169	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2170	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2171	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2172	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2173	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2174	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2175	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2176	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2177	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2178	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2179	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2180	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2181	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2182	#(#LabelSpec
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2183	#label: 'All (Others)'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2184	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2185	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2186	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2187	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2188	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2189	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2190	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2191	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2192	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2193	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2194	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2195	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2196	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2197	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2199	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2200	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2201	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2202	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2203	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2206	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2207	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2208	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2209	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2210
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2211	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2212	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2213	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2216	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2217	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2218	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2244	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2245	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2246	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2250	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2253	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2254	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2255	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2256	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2257	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2258	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2260	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2261	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2262	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2263	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2264	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2265	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2266	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2267	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2268	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2278	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2279	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2280	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2282	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2283	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2284
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2285	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2297	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2302	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2303	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2306	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2307	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2312	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2313	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2314	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2315	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2320	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2321
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2322	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2323	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2324	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2355	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2364	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2371	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2372	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2373	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2374	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2375	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2376	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2377	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2378	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2379	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2380	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2381	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2382	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2383	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2384	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2385	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2386	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2387	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2388	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2389	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2390	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2391	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2392	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
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
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2396	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2397	#extent: #(#Point 490 50)
4286 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	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2409	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2411	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2412
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2413	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2414	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2415	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2416	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2417	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2418
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2419	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2420
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2421	basicSaveSettings
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	Label defaultFont:self labelDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2424	Button defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2425	Toggle defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2426	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2427	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2428	MenuView defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2429	PullDownMenu defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2430	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2431
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2432	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2433	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2434
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2435	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2436	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2437	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2440	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2441	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2442	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2443	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2444	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2445	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2454	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2458	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2461
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2463	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2468	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2469	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2470	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2471	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2472	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2479	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2481	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2482	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2483	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2484	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2489	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2494	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2496	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2506	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2516	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2523	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	^ allFontLabelHolder.
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	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	^ allOfThem
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	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2547	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2550	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553	^ buttonDef
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	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2559	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	^ labelDef
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	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2577	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	^ listDef
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	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2595	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	^ menuDef
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	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2613	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2619	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2621	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2622	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2623	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2624	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625	^ textDef
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	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2629
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2630	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2631	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2632	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2633	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2634	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2636	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2638	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2639	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2641	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2642
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2643	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2644	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2645	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2646	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2647	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2648	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2649	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2650	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2652	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2653	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2654	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2655	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2656	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2657	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2658	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2659	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2660	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2661	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2662	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2663	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2664	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2665	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2666	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2667	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2668	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2670	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2671
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2672	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2673	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2674	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2675	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2676	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2677	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2678	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2679	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2680
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2681	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2682	\| f label\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2683
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2684	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2685
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2686	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2687	label := f isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2688	''
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2689	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2690	f userFriendlyName
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2691	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2692	fontNameHolder value:label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2693	self evaluateModified.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710	labelLabel := 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	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	listsLabel := 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	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	menuLabel := 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	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2725	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2726	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2727
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2728	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2729	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2730	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2731	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2734	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2736	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2737
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2738	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2739	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2740	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2741	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2742	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2743	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2744
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2745	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2746
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2747	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2748
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2749	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2750	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2751
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2752	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2753
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2754	^ #('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	2755	! !
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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2760	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2761	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2762
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2763	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2764	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2768	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2769	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2770	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2771
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2772	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2773
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2774	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2775	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2776	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	2777	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2778	@@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	2779	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	2780	@@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	2781	@@@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	2782	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	2783	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2784
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2786
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2787	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2788	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2789	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2790
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2791	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2792	the UIPainter may not be able to read the specification."
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	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2796	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2797	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2798	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2799
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2800	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2801
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2803	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2804	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2805	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2806	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2807	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2808	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2810	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	#bounds: #(#Rectangle 16 42 616 362)
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	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2814	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2817	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818	#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	2819	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2820	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2821	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2822	#verticalSpace: 3
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2827	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2828	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2829	#model: #catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2830	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2831	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2832	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2833	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2834	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2835	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2836	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2837	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2838	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2839	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2841	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2842	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2843	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2844	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2845	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2846	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2847	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2848	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2849	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2850	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2851	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2852	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2853	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2854	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2855	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2857	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2858	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2861	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2862	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2863	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2864	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2865	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2866	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2867	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2868	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2869	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2870	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2871	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2872	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2873	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2874	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2875	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2876	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2877
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2878	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2879	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2880	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2881	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2882	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2883	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2884	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2885	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2886	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2887	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2888	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2889	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2890	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2891	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2892	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2893	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2894
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2895	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2896	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2897	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2898
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2899	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2900	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2901	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2902
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2903	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2905	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2906
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2907	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2908	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2909	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2910	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2911	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2912	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2913	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2914	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2915	HistoryManager deactivate
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	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2918	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2919	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2920
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2921	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2922
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2923	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2924	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2925	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2927	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2928	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2929	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2930	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2933	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2934	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2935	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2936	self loadBinaries value:false
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 hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2939	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2941	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2942	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2943	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2944	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2945	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2946
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2948
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2949	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2950
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2953	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2954	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2955	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2956
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2957	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2958
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2959	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2960	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2961	catchClassRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2964	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2965
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2966	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2967
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2968	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2970	catchMethodRedefs onChangeSend:#evaluateModified to:self.
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	^ catchMethodRedefs.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2975	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2976
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2977	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2979	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2980	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2981	fullHistoryUpdate := false asValue.
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	fullHistoryUpdate onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2986	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2987
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2988	hasHistoryManager
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	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993	historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2995	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2996	historyLines := self hasHistoryManager asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2997	historyLines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2998	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2999	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3000	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3001
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3002	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3003
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3005	keepSource := (resources array:(self class keepSourceStrings)) asList.
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	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3009
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3014	keepSourceSelection onChangeSend:#evaluateModified to:self.
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	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3017	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3018
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3019	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3020
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3021	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3022	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3023	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3024	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3025	loadBinaries:= false asValue
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	loadBinaries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3028	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3029	^ loadBinaries.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3032	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'change & update'!
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	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3035	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3036
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3037	"stub code automatically generated - please change as required"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3038
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3039	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3040	"/ ^ self.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3043	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3044	! !
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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3047
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3048	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3049
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3050	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3051	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3052	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3053	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3054	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3055	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3056	((self hasHistoryManager) ~= self historyLines value)
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	)
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
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3061	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'documentation'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3062
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3063	version
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	3064	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.47 2003-04-03 14:11:30 penk Exp $'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3065	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3066
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3067	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3068
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3069	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3070	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3071	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3072
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3073	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3074	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3075
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3076	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3077	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3078	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3079	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3080	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3081
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3082	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3083
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3084	^Icon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3085	constantNamed:#'HTTPStartServerSettingsApplication class defaultIcon'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3086	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3087	@@@@@HQ-M!!T6M&5-\@@@@@@@@@@@@@@@@GT4HB,1DS$9NUQ0@@@@@@@@@@@@@F<3JP\MG X9NSL9RG@@@@@@@@@@@GT2GQ\C@0LIJ%L3O11J\@@@@@@@(XP4
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3088	LA$C@0LCAA<''F"8,F4V3@KT@+0A-JCD]@0LCNT-MSEAPS49V$7L@@@@@MQ@XFPLCNE!!XVE!!XVE!!XVE!!X@@@@@AT$APLC@5"9-K6?1LSD1LFJQ@@@@@@KEBT&
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3089	CPMX*R-+Z2+(JZX\DP@@@@@@RL1LR,NVJ8:.K"7-%&I%GAD@@@@@D$OK3D1HU"[%IRT%IRT%I]0Q@@@@@A=@!!L1KQYXJ"(*J"(.8:T\DP@@@@@)THRLQ$C
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3090	VJ"(J"(IBO%''AD@@@@@@B:P2HL@5"K"8.K"8.K"8M0Q@@@@@@@@J]FB@MX0K0:N#(:N,B2\DP@@@@@@@@@,T\;VJ#B0<OC0<N>&GAD@@@@@@@@@@@@*U"(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3091	0<OC0<OC0I!!0Q@@@@@@@@@@@@@AXLU<#HVF$,BX\DP@@@@@@@@@@@@@VJ#C@@@@@@CC&GAD@@@@@@@@@@@@@E"(''92\''I2\(9!!0Q@@@@@@@@@@@@@AXIVO
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3092	#8>O#9*X\DP@@@@@@@@@@@@@VJ!!>&Y:B"I:M&GAD@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 80 0 0 159 0 0 255 0 2 253 0 7 248 0 8 235 0 8 247 0 14 223 0 16 239 0 20 55 0 20 60 0 32 223 0 35 220 0 47 207 0 50 205 0 60 195 0 64 175 0 64 181 0 64 191 0 74 181 0 80 0 0 87 167 0 90 164 0 92 163 0 97 157 0 102 142 0 103 133 0 107 112 0 111 143 0 114 140 0 115 139 0 127 79 0 127 127 0 150 76 0 159 95 0 165 89 0 184 71 0 191 64 0 200 33 0 207 0 0 208 45 0 213 0 0 225 30 0 235 20 0 240 15 0 243 0 0 244 11 0 245 8 0 255 0 6 132 42 6 168 6 10 149 10 17 41 72 17 96 17 25 25 25 25 25 232 28 28 227 30 30 30 33 32 152 35 35 35 35 35 133 40 40 40 42 131 42 45 45 45 50 50 50 51 51 111 51 55 105 52 52 52 54 60 76 54 116 54 60 60 88 60 60 103 62 61 141 62 62 125 65 64 193 65 104 153 65 112 145 65 136 121 65 160 97 65 192 65 68 68 68 71 111 71 76 121 76 77 76 205 80 80 80 85 100 85 95 95 95 97 97 97 98 207 98 103 103 103 104 104 104 107 105 186 107 106 235 109 108 236 109 109 109 111 109 147 111 111 111 111 111 255 114 113 162 114 114 210 116 116 116 117 117 117 118 116 165 118 117 245 118 118 118 119 117 158 119 119 119 120 120 120 120 159 120 127 127 127 130 146 130 131 129 131 132 131 191 135 135 135 136 135 136 138 138 246 142 142 142 143 143 143 143 143 255 147 145 147 147 146 174 147 146 227 150 148 230 151 149 151 151 151 151 153 150 153 155 153 155 156 154 156 156 155 240 157 156 157 159 157 86 159 159 159 162 160 162 162 161 162 162 162 242 163 161 163 164 163 164 165 164 165 166 164 76 166 164 166 168 165 168 168 166 168 172 169 172 173 170 173 173 171 222 174 172 174 175 174 175 176 173 176 178 175 178 181 178 181 182 179 182 184 181 184 184 182 184 186 183 186 187 184 187 187 187 251 188 186 188 189 188 189 189 188 237 189 197 189 190 190 190 191 189 191 192 191 220 194 192 194 194 194 194 195 193 195 196 196 196 197 194 197 197 197 197 198 195 198 200 191 194 200 192 195 200 197 200 201 199 201 202 202 202 203 202 203 204 204 204 205 203 205 206 206 206 207 204 207 207 207 207 208 147 148 208 157 158 208 207 208 211 208 211 211 211 211 214 213 214 215 213 224 217 215 217 218 217 218 219 217 219 222 220 222 223 222 223 224 223 229 228 227 236 229 228 229 233 232 233]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<D??>(???@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3093	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3094
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3095	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3096
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3097	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3098	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3099	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3100
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3101	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3102	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3103
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3104	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3105	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3106	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3107	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3108	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3109
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3110	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3111
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3112	^
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3113	#(#FullSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3114	#name: #windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3115	#window:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3116	#(#WindowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3117	#label: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3118	#name: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3119	#min: #(#Point 10 10)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3120	#max: #(#Point 2048 1024)
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3121	#bounds: #(#Rectangle 16 46 555 676)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3122	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3123	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3124	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3125	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3126	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3127	#name: 'VerticalPanel1'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3128	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3129	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3130	#verticalLayout: #top
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3131	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3132	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3133	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3134	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3135	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3136	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3137	#name: 'VerticalPanel4'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3138	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3139	#verticalLayout: #topSpace
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3140	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3141	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3142	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3143	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3144	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3145	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3146	#name: 'Box19'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3147	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3148	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3149	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3150	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3151	#label: 'Label'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3152	#name: 'Label2'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3153	#layout: #(#LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3154	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3155	#labelChannel: #informationLabel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3156	#adjust: #left
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3157	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3158	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3159
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3160	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3161	#extent: #(#Point 539 95)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3162	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3163	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3164	#name: 'Box18'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3165	#extent: #(#Point 539 20)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3166	)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3167	#(#ViewSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3168	#name: 'Box17'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3169	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3170	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3171	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3172	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3173	#label: 'Port:'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3174	#name: 'Label1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3175	#layout: #(#LayoutFrame 3 0 21 0 40 0 43 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3176	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3177	#adjust: #right
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3178	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3179	#(#InputFieldSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3180	#name: 'EntryField1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3181	#layout: #(#LayoutFrame 40 0 20 0 100 0 42 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3182	#model: #portNumberChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3183	#type: #number
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3184	#acceptOnReturn: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3185	#acceptOnTab: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3186	#acceptOnLostFocus: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3187	#acceptOnPointerLeave: false
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3188	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3189	#(#ActionButtonSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3190	#label: 'Create new HTTP Server'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3191	#name: 'Button4'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3192	#layout: #(#LayoutFrame 125 0 20 0 -5 1 42 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3193	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3194	#model: #createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3195	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3196	#(#ActionButtonSpec
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3197	#label: 'Remove all HTTP Servers'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3198	#name: 'Button5'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3199	#layout: #(#LayoutFrame 125 0 51 0 -5 1 73 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3200	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3201	#model: #removeAllServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3202	#enableChannel: #hasCreatedServerChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3203	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3204	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3205
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3206	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3207	#extent: #(#Point 539 90)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3208	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3209	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3210
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3211	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3212	#extent: #(#Point 539 620)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3213	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3214	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3215
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3216	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3217	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3218	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3219
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3220	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3221	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3222	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3223
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3224	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3225
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3226	basicSaveSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3227
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3228	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3229	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3230
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3231	createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3232
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3233	\| newServer port runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3234
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3235	port := self portNumberChannel value.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3236	runningServers := HTTPServer runningServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3237	runningServers notEmpty ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3238	runningServers do:[:aServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3239	aServer port = port asInteger ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3240	Dialog warn:'There is already a Server for port ', port asString.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3241	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3242	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3243	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3244	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3245	self withWaitCursorDo:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3246	newServer := HTTPServer new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3247	newServer setParametersToDefault.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3248	newServer port:port.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3249	self createServerApplication:newServer forDefault:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3250	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3251	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3252
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3253	createServerApplication:aServerInstance
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3254
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3255	self createServerApplication:aServerInstance forDefault:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3256	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3257
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3258	createServerApplication:aServerInstance forDefault:isDefaultApplication
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3259
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3260
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3261	\|settingsApp settingsAppPosition newItem openApps\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3262
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3263	openApps := self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3264	((openApps detect:[:app \| app httpServerInstance == aServerInstance] ifNone:[nil]) notNil) ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3265	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3266	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3267	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3268	settingsApp := HTTPServerSettingsAppl basicNew.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3269	settingsApp requestor:self requestor.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3270	isDefaultApplication ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3271	settingsApp isDefaultSettingsDialog:isDefaultApplication
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3272	] ifFalse:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3273	settingsApp httpServerInstance:aServerInstance.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3274	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3275	settingsApp basicInitialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3276	settingsAppPosition := requestor getNameOfApplication:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3277	isDefaultApplication ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3278	settingsAppPosition := settingsAppPosition , '/HTTPServer Default Settings'.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3279	] ifFalse:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3280	settingsAppPosition := settingsAppPosition , '/HTTPServer Port ', aServerInstance port asString.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3281	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3282	newItem := requestor addApplClass:#'HTTPServerSettingsAppl' withName:settingsAppPosition.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3283	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3284	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3285	requestor expandItemForApplication:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3286	settingsApp initialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3287	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3288
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3289	createServerSubApplicationsForRunningServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3290
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3291	\|runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3292
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3293	self createServerApplication:nil forDefault:true.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3294	runningServers := HTTPServer runningServers asOrderedCollection.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3295	runningServers isEmpty ifTrue:[ ^ self].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3296	runningServers sort:[:a :b \| a port < b port].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3297	runningServers do:[:aHttpServerInstance \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3298	self createServerApplication:aHttpServerInstance forDefault:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3299	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3300	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3301
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3302	readSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3303
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3304	HTTPServer runningServers removeDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3305	HTTPServer runningServers addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3306	self createServerSubApplicationsForRunningServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3307	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3308	self modifiedChannel value:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3309	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3310
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3311	removeAllServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3312
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3313	HTTPServer terminateAllServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3314	self removeAllServerSubApplications.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3315	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3316	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3317
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3318	removeAllServerSubApplications
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3319
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3320	\|apps\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3321
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3322	apps := requestor getApplicationsByClass:HTTPServerSettingsAppl.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3323	apps do:[:aApp \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3324	aApp isDefaultSettingsDialog ifFalse:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3325	requestor removeByApplication:aApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3326	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3327	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3328	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3329
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3330	setPortOnFreePort
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3331
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3332	\| createdServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3333	createdServer := (self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) collect:[:setApp \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3334	setApp httpServerInstance.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3335	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3336	createdServer size = 1 ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3337	self portNumberChannel value:(HTTPServer defaultPort).
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3338	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3339	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3340	self portNumberChannel value:0.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3341	createdServer do:[:aHttpServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3342	(aHttpServer notNil and:[aHttpServer port >= (self portNumberChannel value asInteger)]) ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3343	self portNumberChannel value:(aHttpServer port + 1).
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3344	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3345	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3346	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3347
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3348	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3349
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3350	hasCreatedServerChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3351	"automatically generated by UIPainter ..."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3352
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3353	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3354	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3355	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3356	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3357
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3358	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3359	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3360	"/ if your app needs to be notified of changes, uncomment one of the lines below:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3361	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3362	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3363	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3364	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3365	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3366
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3367	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3368	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3369	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3370	default:
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3371	'These dialogs enable you to both
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3372	setup a default server (which is started automatically)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3373	and to control individual running servers (if you want
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3374	to handle multiple servers on multiple ports).
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3375
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3376	The default servers settings are specified in the
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3377	"HTTPServer Default Settings" entry.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3378	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3379
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3380	portNumberChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3381
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3382	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3383	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3384	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3385	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3386	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3387
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3388	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3389
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3390	createdServerChanged
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3391
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3392	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3393	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3394	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3395
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3396	runningServersChanged
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3397
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3398	\|runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3399
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3400	runningServers := HTTPServer runningServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3401	self createServerSubApplicationsForRunningServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3402	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3403	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3404
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3405	update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3406	"Invoked when an object that I depend upon sends a change notification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3407
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3408	"stub code automatically generated - please change as required"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3409
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3410
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3411	changedObject == HTTPServer runningServers ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3412	self runningServersChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3413	^ self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3414	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3415	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3416	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3417
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3418	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3419
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3420	basicInitialize
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3421
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3422	"/ self createServerSubApplicationsForRunningServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3423	super basicInitialize
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3424	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3425
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3426	release
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3427
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3428	HTTPServer runningServers removeDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3429	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3430
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3431	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3432
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3433	hasCreatedServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3434
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3435	^ ((self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) size > 1)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3436	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3437
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3438	hasUnsavedChanges
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3439
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3440	^ false
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3441	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3442
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3443	help
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3444
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3445	self warn:'no help available here'.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3446	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3447	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3448
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3449	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3450
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3451	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3452	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3453	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3454
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3455	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3456	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3457
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3458	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3459	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3460	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3461	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3462	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3463
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3464	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3465
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3466	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3467	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3468	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	3469	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3470	@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@@@@@@@HBA@PD@@@@@@@@@@@@@@@@@@@@@@HBA@PDA@P@@@@@@@@@@@@@@@@@@@HBA@PD@@@DA@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3471	@@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	3472	@ HDA@PDA@LC@0@@@@@@@@@@@@@@@@HB@ PDA@LC@0@@@@@@@@@@@@@@@@@@@ HBA@LC@0@@@@@@@@@@@@@@@@@@@@@B@ PC@0@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3473	@@HD@0@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3474	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3475	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3476
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3487	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3488	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3489	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3490	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3492	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3493
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3494	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3495	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3496	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3497	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3498	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3499	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3500	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3503	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3504	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3505	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3506	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3507	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3508	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3509	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3510	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3515	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3516	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3517	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3519	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3520	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3533	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3534	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3535	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3537	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3538	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3541	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3542	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3543	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3544	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3545	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3546	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3548	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3549	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3550	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3551	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3552	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3553	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3554	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3555	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3556	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3557	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3558	#adjust: #left
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3562	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3563	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3568	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3569	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3570	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3571	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3572	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3573	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3574	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3576	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3577	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3578	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3586	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3587	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3588
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3594	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3595	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600	functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3603	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608	functionKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	functionKeyList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	"/ functionKeyList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614	^ functionKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617	labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3621	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	labelTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626	labelTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3627	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628	"/ labelTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631	^ labelTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3633
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3634	macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3635	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3638	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3640	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3642	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3643	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3644	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3645	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3646	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3647	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3648	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3649	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3651	rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3653	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3654	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3655	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3656	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3657	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3662	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3663	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3668	selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3670	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3672	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3674	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3675	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3677	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679	changeFunctionKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3684	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686	changeMacroText
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3718	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719	macroTextHolder value:macro.
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	changeRawKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3723	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3727	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3730	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3731	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3732	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3733	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3734	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3736	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3737	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3739	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3741	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3742	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3743	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3744	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3745	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3746	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3747	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3748	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3749	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3750	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3751	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3753	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3754
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3755	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3756	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3757	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3758	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3759	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3761	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3762	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3763	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3764	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3766	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3768	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3769	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3770	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3772	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3773
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3774	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3776	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3778	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3779	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3782	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3783
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3784	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3789	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3790
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3791	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3792
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3793	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3794	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3795	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3796
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3797	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3798	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3799
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3800	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3801	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3802	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3803	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3804	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3805
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3806	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3807
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3808	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3809	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3810	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	3811	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3812	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	3813	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	3814	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	3815	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	3816	@@@@@@@@@@@@@@@@@@@@@@@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	3817	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3818
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3826	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3829	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3830	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3831	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3838	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3839	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3840	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3841	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3842	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3843	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3844	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3845	#bounds: #(#Rectangle 16 46 491 717)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3846	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3847	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3849	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3850	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3851	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3852	#layout: #(#LayoutFrame 2 0.0 105 0 -2 1.0 125 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3853	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3854	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3855	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3856	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3857	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3858	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3859	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3860	#name: 'List1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3861	#layout: #(#LayoutFrame 2 0.0 125 0 -2 1.0 -30 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3875	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3881	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3884	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3886	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3894	#(#HorizontalPanelViewSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3895	#name: 'HorizontalPanel1'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3896	#layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3897	#horizontalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3898	#verticalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3899	#horizontalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3900	#verticalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3901	#component:
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3902	#(#SpecCollection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3903	#collection: #(
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3904	#(#ActionButtonSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3905	#label: 'Reread Language Resources'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3906	#name: 'RereadResourcesButton'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3907	#translateLabel: true
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3908	#model: #rereadResourceFiles
4737 b513890618b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3909	#extent: #(#Point 228 22)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3910	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3911	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3912
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3913	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3914	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3915	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3916
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3917	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3918	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3919	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3920
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3921	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3923	languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3924	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3925
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3926	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3927	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3929	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3930
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3931	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3933	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3934	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3936	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3937	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3938	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3939	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3941	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3942	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3943	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3946	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3947	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3954	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3955	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3956
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3958	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3960	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3961	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3963	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3964	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3965
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3966	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3967	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3971	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3972	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3973	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3974	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3975	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3976	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3977	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3978	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3979	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3980	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	3981	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3982	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3983	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3984	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3985	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3986	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3987	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3988	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3989	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3990	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3991	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3992	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3993	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3994	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3996	answer ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997	switch := ( self requestor fontBoxForEncoding:fontPref)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4001	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4003	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4004	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4010	switch ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	self requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	self requestor reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4013	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4014	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4015	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018	self currentLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4019	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4020
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4021	doubleClick:aEntry
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4022
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4023	self saveSettingsIfUnsavedChangesArePresent.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4024	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4025
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4026	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4027
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4028	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4029	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4030
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4031	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4032	self languageHolder value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4033	self currentLanguageChannel value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4034	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4035	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4036
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4037	rereadResourceFiles
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4038	ResourcePack flushCachedResourcePacks.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4039
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4040	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4041	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4042
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4043	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4044	Smalltalk changed:#LanguageTerritory.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4049	currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057	currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	languageHolder := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	languageHolder onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4079	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4080	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4081
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4082	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4085	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4088	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4091	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4093	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4094
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4095	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4096
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4097	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4099	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4101	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4103	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4104
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4105	listOfLanguages := self class classResources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4106	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4107	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4108	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4109	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4110	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4111	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4112	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4113	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4114	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4115	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4116	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4117	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4118	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4119	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4120	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4121	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4122	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4123	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4124	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4125	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4126	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4127	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4128	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4129	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4130	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4131	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4132	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134	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	4135
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4136	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4137	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4138
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4139	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4140
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4141	currentLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4142
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4143	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4145	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4146	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4147	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4149	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4150	^ languageList at:(listOfLanguages indexOf:lang)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4151	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4152
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4153	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4155	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4156	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4158	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4159
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4160	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4161	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4162	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4163
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4164	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4165	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4166
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4167	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4168	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4169	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4170	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4171	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4172
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4173	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4174
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4175	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4176	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4177	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	4178	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD\@@@@@@@@@@@@@@@@@@@@@@@ARIT(*IRL]R0@@@@@@@@@@@@@@@@@@M2-VUQ<UD4QV@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4179	@@@@@@AURQ<WI!!<UEQTVS%@@@@@@@@@@@@AXI3=CH!!4QDA!!DJAT[SP@@@@@@@@AXRDQSI1,OC <QE1TRHQ @@@@@@@AUR2XWGQ MCP<OC <QHATEN0@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4180	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	4181	@ 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	4182	E1@@GQYHH"1ET @@@@@@@@@@M0\@B!!$GMTP8S"EO@@@@@@@@@@@@@@@:B@@UET$1H$D/@@@@@@@@@@@@@@@@@C OD14\G$9ST@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4183	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	4184	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4185
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4186	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4187
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4188	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4189	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4190	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4191
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4192	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4193	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4194
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4195	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4196	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4197	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4198	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4199	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4201	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4202
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4203	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4204	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4205	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4206	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4207	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4208	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4209	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4210	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4211	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4212	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4213	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4214	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4215	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4216	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4217	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4218	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4219	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4220	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4221	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4222	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4223	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4224	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4225	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4226	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4227	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4228	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4229	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4230	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4231	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4232	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4233	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4234	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4235	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4236	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4237	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4238	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4239	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4240	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4241	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4242	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4243	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4244	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4245	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4246	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4247	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4248	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4249	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4250	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4251	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4252	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4253	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4254	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4255	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4256	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4257	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4258	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4259	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4260	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4261	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4262	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4263	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4264	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4265	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4266	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4267	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4268	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4269
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4270	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4271	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4272	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4273	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4274	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4275	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4276	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4277	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4278	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4279	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4280	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4281	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4282	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4283	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4284	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4285	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4286	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4287	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4288	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4289	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4290	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4291	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4292	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4293	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4294	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4295	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4296	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4297	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4298	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4299	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4300	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4301	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4302	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4303	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4304	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4305	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4306	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4307
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4308	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4309	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4310	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4311	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4312	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4313	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4314	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4315	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4316	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4317	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4318	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4319	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4320	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4321	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4322	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4323	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4324	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4325	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4326	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4327	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4328	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4329	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4330	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4331	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4332	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4333	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4334	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4335	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4336	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4337	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4338	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4340	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4341	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4342	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4343	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4344	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4345
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4346	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4347	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4348	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4349	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4350	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4351	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4352	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4353	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4354	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4355	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4356	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4357	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4358	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4359	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4360	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4361	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4362	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4363	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4364	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4365	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4366	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4367	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4368	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4369	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4370	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4371	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4372	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4373	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4374	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4375	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4376	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4377	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4378	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4379	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4380	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4381	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4382	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4383
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4384	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4385	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4386	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4387	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4388	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4389	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4390	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4391	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4392	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4393	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4394	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4395	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4396	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4397	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4398	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4399	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4400	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4401	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4402	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4403	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4404	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4405	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4406	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4407	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4408	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4409	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4410	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4411	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4412	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4413	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4414	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4415	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4416	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4417	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4418	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4419	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4420	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4421
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4422	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4423	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4425	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4426	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4427	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4428	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4429	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4430	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4431	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4432	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4433	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4434	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4435	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4436	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4437	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4438	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4439	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4440	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4441	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4442	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4443	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4444	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4445	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4446	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4447	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4448	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4449	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4450	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4451	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4452	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4453	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4454	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4455	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4456	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4457	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4458	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4459
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4460	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4461	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4462	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4463	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4464	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4465	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4466	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4467	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4468	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4469	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4470	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4471	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4472	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4473	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4474	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4475	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4476	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4477	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4478	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4479	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4480	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4481	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4482	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4483	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4484	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4485	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4486	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4487	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4488	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4489	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4490	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4491	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4492	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4493	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4494	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4495	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4496	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4497
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4498	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4499	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4500	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4501	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4502	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4503	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4504	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4505	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4506	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4507	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4508	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4509	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4510	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4511	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4512	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4513	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4514	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4515	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4516	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4517	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4518	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4519	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4520	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4521	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4522	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4523	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4524	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4525	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4526	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4527	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4528	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4529	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4530	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4531	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4532	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4533	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4534	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4535
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4536	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4537	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4538	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4539	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4540	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4541	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4542	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4543	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4544	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4545	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4546	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4547	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4548	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4549	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4550	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4551	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4552	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4553	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4554	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4555	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4556	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4557	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4558	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4559	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4560	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4561	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4562	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4563	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4564	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4565	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4566	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4567	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4568	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4569	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4570	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4571	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4572	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4573	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4574
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4575	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4576	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4577	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4578	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4579	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4580	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4581	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4582	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4583	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4584	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4585	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4586	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4587	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4588	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4589	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4590	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4591	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4592	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4593	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4594	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4595	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4596	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4597	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4598	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4599	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4600	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4601	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4602	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4603	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4604	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4605	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4606	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4607	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4608	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4609	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4610	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4611	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4612	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4613
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4614	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4615	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4616	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4617	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4618	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4619	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4620	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4621	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4622	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4623	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4624	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4625	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4626	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4627	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4628	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4629	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4630	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4631	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4632	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4633	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4634	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4635	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4636	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4637	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4638	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4639	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4640	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4641	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4642	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4643	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4644	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4645	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4646	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4647	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4648	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4649	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4650	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4651
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4652	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4653	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4654	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4655	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4657	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4658	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4659	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4661	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4662	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4663	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4665	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4666
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4667	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4668
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4669	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4670	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4671	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4672	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4673	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4674	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4675	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4676	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4677	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4678	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4679	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4680	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4681
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4682	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4684	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4685	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4686	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4687
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4688	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4689	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4690	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4691	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4692	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4693	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4694	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4695	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4696	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4697	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4698	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4699	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4700	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4701	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4703	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4705	codeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4707	codeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4708	codeLimit := ObjectMemory dynamicCodeLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4709	codeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4710	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4711	^ codeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4712	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4714	codeTrigger
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4715
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4716	codeTrigger isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4717	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4718	codeTrigger onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4719	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4720	^ codeTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4721	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4722
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4723	compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4725	compressLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4726	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4727	compressLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4728	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4729	^ compressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4730	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4732	fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4734	fastMoreLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4735	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4736	fastMoreLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4737	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4738	^ fastMoreLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4739	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4741	igcFreeAmount
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4743	igcFreeAmount isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4745	igcFreeAmount onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4746	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4747	^ igcFreeAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4750	igcFreeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4752	igcFreeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4753	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4754	igcFreeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4755	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4756	^ igcFreeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4757	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4759	igcLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4761	igcLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4762	igcLimit := ObjectMemory incrementalGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4763	igcLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4764	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4765	^ igcLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768	maxOldSpace
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770	maxOldSpace isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4771	maxOldSpace := ObjectMemory maxOldSpace asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4772	maxOldSpace onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4774	^ maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4775	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777	newSpaceSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4779	newSpaceSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4780	newSpaceSize := ObjectMemory newSpaceSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781	newSpaceSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4782	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4783	^ newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4784	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4786	oldIncr
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4788	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4789	oldIncr := ObjectMemory oldSpaceIncrement asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4790	oldIncr onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4791	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4792	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4793	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4794
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4795	stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4796
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4797	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4798	stackLimit := Process defaultMaximumStackSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4799	stackLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4800	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4801	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4802	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4804	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4806	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4807	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4808
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4809	warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4810
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4811	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4812	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4813	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4814	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4815	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4816
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4817	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4819	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4820
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4821	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4822	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4823	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4824	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4825
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4826	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4828	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4829
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4830	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4831	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4832	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4833	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4834	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4835	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4836	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4837	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4838	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4839	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4840	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4841	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4842	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4843	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4844
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4845	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4846
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4847	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4848	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4849	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4850
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4851	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4852	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4853
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4854	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4855	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4856	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4857	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4858	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4859
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4860	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4861
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4862	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4863	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4864	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	4865	@@@@_$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	4866	.+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	4867	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	4868	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	4869	[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	4870	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	4871	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4872
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4873	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4874
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4875	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4876	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4877	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4878
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4879	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4880	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4881
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4882	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4883	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4884	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4885	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4886	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4887
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4888	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4889
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4890	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4891	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4892	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4893	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4894	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4895	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4896	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4897	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4898	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4899	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4900	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4901	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4902	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4903	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4904	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4905	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4906	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4907	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4908	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4909	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4910	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4911	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4912	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4913	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4914	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4915	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4916	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4917	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4918	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4919	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4920	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4921	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4922	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4923	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4924	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4925	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4926	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4927	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4928	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4929	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4930	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4931	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4932	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4933	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4934	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4935	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4936	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4937	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4938	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4939	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4940	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4941	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4942	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4943
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4944	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4945	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4946	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4947	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4948	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4949	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4950	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4951	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4952	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4953	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4954	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4955	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4956	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4957	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4958	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4959	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4960	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4961	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4962	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4963	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4964	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4965	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4966	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4967	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4968	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4969	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4970	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4971
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4972	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4973	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4974	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4975	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4976	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4977	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4978	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4979	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4980	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4981	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4982	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4983	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4984	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4985	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4986	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4987	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4988	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4989
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4990	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4991	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4992	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4993	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4994	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4995	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4996	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4997	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4998	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4999	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5000	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5001	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5002	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5003	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5004	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5005	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5006	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5007	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5008	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5009	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5010	#type: #password
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5011	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5012	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5013	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5014	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5015	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5016	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5017
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5018	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5019	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5020	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5021	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5022
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5023	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5024	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5025	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5026	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5027
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5028	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5029	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5030	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5031
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5032	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5033	)
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	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5037
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5038	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5039
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5040	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5041	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5042	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5043	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5044	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5045	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5046	SmalltalkShareServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5047	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5048	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5049	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5050	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5051	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5052	self warn:'SmalltalkShareServer startup failed (see stderr).'
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	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5055	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5056	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5057	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5058	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5059	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5060	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5061	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5062	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5063	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5064	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5065	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5066	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5067	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5068	WindowMigrationServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5069	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5070	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5071	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5072	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5073	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5074	self warn:'WindowMigrationServer startup failed (see stderr).'
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	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5077	].
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	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5080
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5081	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5082
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5083	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5084	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5085	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5086
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5087	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5088	self remoteBrowsingEnabled value:(self hasRemoteBrowsingSupport
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5089	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5090	self windowMigrationEnabled value:(self hasWindowMigrationServer
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5091	and:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5092	WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5093	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5094	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5095	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5096	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5097	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5098	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5099	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5100	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5101	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5102	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5103	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5104
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5105	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5106
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5107	enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5108
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5109	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5110	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5111	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5112	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5113	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5114	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5115	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5116	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5117	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5118
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5119	remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5120
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5121	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5122	remoteBrowsingEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5123	remoteBrowsingEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5124	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5125	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5126	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5127
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5128	windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5129
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5130	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5131	windowMigrationAuthenticate := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5132	windowMigrationAuthenticate onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5133	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5134	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5135	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5136
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5137	windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5138
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5139	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5140	windowMigrationEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5141	windowMigrationEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5142	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5143	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5144	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5145
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5146	windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5147
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5148	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5149	windowMigrationPassword := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5150	windowMigrationPassword onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5151	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5152	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5153	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5154
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5155	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5156
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5157	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5158	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5159
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5160	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5161
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5162	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5163	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5164	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5165
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5166	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5167	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5168
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5169	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5170
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5171	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5172	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5173	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5174	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5175
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5176	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5177
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5178	hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5179
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5180	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5181	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5182
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5183	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5184
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5185	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5186	self remoteBrowsingEnabled value ~= (self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5187	self windowMigrationEnabled value ~= (self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5188	self windowMigrationPassword value ~= WindowMigrationServer password or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5189	self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil ]]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5191	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5192
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5193	hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5194
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5195	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5196	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5197
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5198	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5199
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5200	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5201	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5202	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5203
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5204	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5205	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5206
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5207	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5208	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5209	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5210	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5211	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5212
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5213	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5214
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5215	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5216	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5217	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	5218	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5219	@@@@@@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	5220	@ 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	5221	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	5222	@ 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	5223	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	5224	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5225
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5226	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5228	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5229	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5230	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5231
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5232	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5233	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5235	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5236	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5237	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5238	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 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	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5242
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5243	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5244	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5245	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5246	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5247	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5248	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5249	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5250	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5251	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5252	#bounds: #(#Rectangle 16 46 526 612)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5253	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5254	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5255	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5256	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5257	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5258	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5259	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5260	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5261	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5262	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5263	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5264	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5265	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5266	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5267	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5268	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5269	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5270	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5271	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5272	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5273	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5274	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5275	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5276	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5277	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5278	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5279	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5280	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5281	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5282	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5283	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5284	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5285	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5286	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5287	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5288	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5289	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5290	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5291	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5292	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5293	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5294	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5295	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5296	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5297	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5298	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5299	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5300	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5301	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5302	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5303	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5304	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5305	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5306	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5307	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5308	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5309	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5310	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5311	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5312	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5313	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5314	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5315	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5316	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5317	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5318	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5319	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5320	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5321	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5322	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5323	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5324	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5325	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5326	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5327	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5328	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5329	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5330	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5331	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5332	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5333	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5334	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5335	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5336	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5337	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5338	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5339	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5340	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5341	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5342	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5343	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5344	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5345	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5346	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5347	#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	5348	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5349	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5350	#adjust: #leftRight
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5351	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5352	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5353	#label: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5354	#name: 'CheckBox5'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5355	#layout: #(#LayoutFrame 0 0 -22 1 216 0 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5356	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5357	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5358	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5359	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5360	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5361	#layout: #(#LayoutFrame 218 0 -22 1 -5 1 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5362	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5363	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5364	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5365	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5366	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5367	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5368	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5369	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5370	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5371
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5372	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5373	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5374	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5375	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5376
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5377	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5378	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5379	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5380	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5382	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5383	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5384	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5386	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5387	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5388	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5389
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5390	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5391
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5392	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5393
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5394	PopUpView shadows:self shadows value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5395	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5396	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5397	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5398	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5399	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5400	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5401
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5402	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5403	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5404	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5405
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5406	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5407	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5408	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5409	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5410	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5411	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5412	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5413	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5414	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5415
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5416	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5417	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5418
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5419	currentUserPrefs beepEnabled:self beepEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5420
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5421	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5422	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5423	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5424	Screen current activateOnClick:self activateOnClick value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5425
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5426	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5427
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5428	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5429	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5430
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5431	formatHostNameinWindowLabels
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5432	\|newFormat\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434	newFormat := Dialog request:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435	'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5436	withCRs initialAnswer:newWindowLabelFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5438	newFormat size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5439	newWindowLabelFormat := newFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5440	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5441	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5442	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5443
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5445
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5446	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5447	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5448	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5449
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5450	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5451	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5452	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5453	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5454	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5455	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5456	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5457	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5458	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5459	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5460	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5461	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5462	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5463	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5464	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5465	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5466	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5467	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5468
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5469	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5471	activateOnClick
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5472
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5473	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5474	activateOnClick := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5475	activateOnClick onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5476	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5477	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5478	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5480	beepEnabled
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5482	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5483	beepEnabled := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5484	beepEnabled onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5485	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5486	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5487	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5489	focusFollowsMouse
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5490
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5491	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5492	focusFollowsMouse := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5493	focusFollowsMouse onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5494	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5495	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5496	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5497
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5498	formatHostNameWindowLabel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5499
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5500	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5501	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5502	('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	5503	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5504	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5505	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5506
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5507	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5508	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5509	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5510
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5511	hostNameInLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5512
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5513	hostNameInLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5514	hostNameInLabelHolder := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5515	hostNameInLabelHolder onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5516	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5517	^ hostNameInLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5518	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5519
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5520	newWindowLabelFormat
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5521
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5522	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5523	newWindowLabelFormat := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5524	newWindowLabelFormat onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5525	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5526	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5527
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5528	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5529	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5530
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5531	opaqueTableColumnResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5533	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5534	opaqueTableColumnResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5535	opaqueTableColumnResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5536	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5537	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5538	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5540	opaqueVariablePanelResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5542	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5543	opaqueVariablePanelResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5544	opaqueVariablePanelResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5545	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5546	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5547	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5549	returnFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5551	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5552	returnFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5553	returnFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5555	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5556	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5558	shadows
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5560	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5561	shadows := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5562	shadows onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5563	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5564	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5565	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5567	showAccelerators
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5569	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5570	showAccelerators := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5571	showAccelerators onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5572	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5573	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5574	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5576	takeFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5578	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5579	takeFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5580	takeFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5581	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5582	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5583	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5584
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5585	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5587	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5588	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5590	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5591
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5592	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5593	"/ ^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5594	"/ ].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5596	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5597	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5598
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5599	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5601	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5602	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5604	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5606	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5607	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5608	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5610	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5612	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5613	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5614	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5615
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5616	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5618	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5620	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5621	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5622	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5623	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5624	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5625	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5626	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5627	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5628	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5629	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5630	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5631	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5632	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5633	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5634
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5635	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5636	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5637
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5638	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5639
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5640	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5641	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5642	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5643
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5644	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5645	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5646
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5647	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5648	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5649	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5650	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5651	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5652
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5653	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5654
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5655	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5656	constantNamed:#'AbstractSettingsApplication::OsiSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5657	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	5658	@@@@_$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	5659	.+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	5660	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	5661	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	5662	[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	5663	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	5664	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5665
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5666	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5667
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5668	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5669	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5670	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5671
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5672	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5673	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5674
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5675	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5676	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5677	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5678	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5679	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5680
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5681	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5682
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5683	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5684	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5685	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5686	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5687	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5688	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5689	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5690	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5691	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5692	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5693	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5694	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5695	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5696	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5697	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5698	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5699	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5700	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5701	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5702	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5703	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5704	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5705	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5706	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5707	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5708	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5709	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5710	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5711	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5712	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5713	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5714	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5715	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5716	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5717	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5718	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5719	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5720	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5721	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5722	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5723	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5724	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5725	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5726	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5727	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5728	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5729	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5730	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5731	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5732	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5733	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5734	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5735	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5736	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5737	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5738	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5739	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5740	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5741	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5742	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5743	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5744	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5745	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5746	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5747	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5748	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5749	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5750	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5751	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5752
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5753	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5754	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5755	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5756	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5757	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5758	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5759	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5760	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5761	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5762	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5763	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5764	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5765	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5766	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5767	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5768	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5769	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5770	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5771	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5772	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5773	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5774	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5775	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5776	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5777	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5778	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5779	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5780	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5781	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5782	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5783	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5784	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5785	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5786	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5787	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5788	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5789	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5790	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5791	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5792	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5793	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5794	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5795	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5796
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5797	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5798	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5799	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5800	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5801	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5802	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5803	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5804	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5805	#label: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5806	#name: 'Label3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5807	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5808	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5809	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5810	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5811	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5812	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5813	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5814	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5815	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5816	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5817	#name: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5818	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5819	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5820	#model: #osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5821	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5822	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5823	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5824	#label: 'Log Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5825	#name: 'CheckBox8'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5826	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5827	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5828	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5829	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5830	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5831	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5832
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5833	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5834	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5835	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5836	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5837
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5838	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5839	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5840	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5841	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5842
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5843	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5844	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5845	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5846
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5847	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5848	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5849	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5850
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5851	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5852
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5853	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5854
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5855	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5856	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5857	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5858	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5859	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5860	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5861	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5862	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5863	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5864	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5865	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5866	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5867	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5868	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5869	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5870
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5876	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5883	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5884	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5888	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5892	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5893	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5894	self modifiedChannel value:false
4310 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	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899	osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5902	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5906
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5910	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5913	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5914	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5915
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916	osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5917	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5920	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5921	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5925	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5926	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5927	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5928	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5929	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5930	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5931	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5932
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5933	osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5934	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5935
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5936	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5937	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5938	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5943	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5944	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5945	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5946	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5947	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5948	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5949
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5950	osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5951	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5952
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5953	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5954	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5955	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5956	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5957
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5958	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5959	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5960	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5961	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5962	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5963	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5964	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5965	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5966
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5967	osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5968	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5969
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5970	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5971	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5972	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5973	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5974
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5975	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5976	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5977	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5978	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5979	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5980	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5981	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5982	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5983
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5984	osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5985	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5986
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5987	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5988	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5989	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5990	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5991
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5992	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5993	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5994	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5995	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5996	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5997	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5998	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5999	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6000
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6001	osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6002	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6003
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6004	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6005	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6006	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6007	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6008
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6009	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6010	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6011	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6012	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6013	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6014	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6015	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6016	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6017
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6018	osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6019	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6020
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6021	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6022	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6023	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6024	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6025
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6026	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6027	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6028	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6029	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6030	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6031	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6032	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6033	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6034
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6035	osiROSEInvokationLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6036	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6037
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6038	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6039	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6040	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6041	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6042
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6043	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6044	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6045	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6046	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6047	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6048	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6049	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6050	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6051
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6052	osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6053	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6054
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6055	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6056	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6057	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6058	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6059
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6060	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6061	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6062	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6063	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6064	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6065	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6066	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6067	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6068
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6069	osiROSEResponseLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6070	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6071
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6072	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6073	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6074	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6075	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6076
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6077	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6078	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6079	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6080	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6081	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6082	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6083	^ osiROSEResponseLogging.
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	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6087
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6088	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6089	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6090
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6091	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6092
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6093	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6094	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6095	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6097	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6098	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6099
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6100	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6101
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6106	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6107	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6108	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6109	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6110	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6111	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6112	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6113	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6114	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6115	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6116	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6118	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6119
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6120	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6121	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6122	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6123
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6124	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6125	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6126
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6127	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6128	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6129	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6130	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6131	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6132
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6133	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6134
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6135	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6136	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6137	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	6138	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6139	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDA@PDA@P@@@@@@@@@A@@@@@@@@@@@@@@@@@P@@@@@@@@@@@P@@@PDA@P@@@PDA@@D@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6140	@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	6141	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	6142	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6143	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6144	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6145
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6146	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6147
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6148	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6149	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6150	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6151
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6152	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6153	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6154
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6155	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6156	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6157	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6158	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6159	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6160
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6161	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6162
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6163	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6164	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6165	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6166	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6167	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6168	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6169	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6170	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6171	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6172	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6173	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6174	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6175	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6176	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6177	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6178	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6179	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6181	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6182	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6183	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6184	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6185	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6186	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6198	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6199	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6200	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6201	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6202	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6203	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6210	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6211	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6212	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6214	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6217	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6218	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6224	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6226	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6227
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6228	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6231	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6232	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6233	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6235	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6237	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6238	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6239	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6240	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6241	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6242	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6243	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6247	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6262	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6263	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6265
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6267	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6268	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6269	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6271	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6275	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6276	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6279	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6281	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6282	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6286	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6287	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6288	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6289	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6290	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6291	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6292	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6293	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6294	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6295	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6296	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6297	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6298	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6299	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6300	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6301	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6302	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6303	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6304	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6305	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6306	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6307	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6308	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6309	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6310	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6311	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6312	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6313	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6314	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6315	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6316	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6317
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6319	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6320	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6321	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6322	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6323	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6324	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6325	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6326	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6327	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6328	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6329	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6330	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6331	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6332	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6333	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6334	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6335	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6336	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6337	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6338	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6339	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6340	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6341	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6342	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6343	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6344	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6345
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6346	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6347	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6348	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6349	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6350	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6351	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6352	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6353	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6354	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6355	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6356	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6357	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6358	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6359	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6360	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6361	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6362	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6363	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6364	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6365	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6366	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6367	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6368	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6369	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6370	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6371	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6372	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6373
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6374	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6375	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6376	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6377	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6378	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6379	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6380	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6381	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6382	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6383	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6384	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6385	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6386	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6387	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6388	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6389	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6390	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6391	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6392	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6393	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6394	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6395	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6396	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6397	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6398	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6399	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6400	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6401
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6402	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6403	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6404	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6405	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6406
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6407	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6408	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6409	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6410	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6411	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6412	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6413	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6414
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6415	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6416	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6417	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6418	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6419	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6420	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6421	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6422	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6423	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6424	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6425	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6426	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6427	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6428	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6429	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6430	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6431	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6432
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6433	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6434	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6435	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6436	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6438	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6439	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6440	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6442	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6443	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6444	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6445
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6446	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6447
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6448	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6449
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6450	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6451	Printer printCommand:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6452
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6453	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6454	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6455	Printer landscape:(self landscape 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	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6458	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6459	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6460	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6461	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6462	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6463	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6464	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6465	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6466	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6467	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6468	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6469	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6470	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6471	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6472	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6473
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6474	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6476	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6477	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6478	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6479
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6480	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6481	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6482	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6483	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6484	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6485	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6486	self printCommand value:Printer printCommand.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6487	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6488	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6489	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6490	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6491	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6492	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6493	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6494	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6495	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6496
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6497	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6499	bottomMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6501	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6502	bottomMargin := Printer bottomMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6503	bottomMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6504	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6505	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6506	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6508	enableColorBox
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6510	enableColorBox isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6511	enableColorBox := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6512	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6513	^ enableColorBox.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6514	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6515
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6516	enableFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6517
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6518	enableFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6519	enableFormat := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6520	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6521	^ enableFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6522	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6524	enableMargins
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6526	enableMargins isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6527	enableMargins := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6528	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6529	^ enableMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6530	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6532	enablelandscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6534	enablelandscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6535	enablelandscape := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6536	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6537	^ enablelandscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6538	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6540	landscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6542	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6543	landscape := Printer landscape asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6544	landscape onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6545	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6546	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6547	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6549	leftMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6551	leftMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6552	leftMargin := Printer leftMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6553	leftMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6555	^ leftMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6556	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6558	pageFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6560	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6561	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6562	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6563	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6564	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6565	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6566	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6567	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6568	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6569	pageFormat onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6571	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6572	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6574	pageFormatList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6576	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6577	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6578	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6579	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6580	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6582	printCommand
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6584	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6585	printCommand := Printer printCommand asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6586	printCommand onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6587	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6588	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6589	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6591	printCommandList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6593	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6594	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6595	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6596	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6597	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6599	printerType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6601	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6602	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6603	printerType onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6604	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6605	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6606	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6608	printerTypeSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6610	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6611	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6612	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6613	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6614	printerTypeSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6615	printerTypeSelection onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6616	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6617	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6618	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6620	rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6622	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6623	rightMargin := Printer rightMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6624	rightMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6625	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6626	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6627	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6629	selectedUnit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6631	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6632	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6633	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6634	selectedUnit changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6635	selectedUnit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6637	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6638	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6640	supportsColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6642	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6643	supportsColor := Printer supportsColor asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6644	supportsColor onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6646	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6647	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6648
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6649	topMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6651	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6652	topMargin := Printer topMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6653	topMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6654	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6655	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6656	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6658	unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6660	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6661	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6663	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6664	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6666	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6668	printerTypeSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6670	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6671	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6672	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6673	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6674	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6675	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6676	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6677	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6678	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6679	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6680
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6681	printerTypeSelectionOrUnitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6683	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6685	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6686	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6687	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6688	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6689	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6690	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6691	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6692	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6693	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6694	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6695	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6696	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6697	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6698	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6699	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6700	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6701	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6702	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6703	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6704	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6705	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6706	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6707
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6708	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6709	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6710	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6711	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6713	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6714	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6715	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6716
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6717	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6718	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6719	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6720	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6721	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6722	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6723	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6724	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6725	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6726	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6727	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6728	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6729	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6730	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6731	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6732	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6734	unitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6735	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6737	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6738	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6739
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6740	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6741
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6742	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6743	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6744	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6745	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6746
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6747	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6748	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6750	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6752	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6753	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6754
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6755	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6757	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6758	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6759	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6761	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6762
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6763	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6764	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6765	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6767	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6768
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6769	commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6770	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6771	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6772	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6773	commandList := PrinterStream defaultCommands.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6774	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6775	commandList := #('lpr'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6776	'lp'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6777	) asOrderedCollection.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6778	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6779	(commandList includes:self printCommand value) not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6780	commandList add:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6781	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6782	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6783	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6784	^ commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6785	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6786
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6787	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6790	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6791	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6792	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6793	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6794	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6795	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6796	printer := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6797	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6798	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6799	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6800	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6801	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6802	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6803	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6804	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6805	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	6806	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	6807	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	6808	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6809	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6810	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6811	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6812	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6813	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6814	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6815
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6816	possiblePrinters
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6817	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6818	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6819	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6820	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6821	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6822
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6823	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6824
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6825	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6826	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6827	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6828
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6829	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6830	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6831
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6832	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6833	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6834	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6835	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6836	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6837
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6838	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6839
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6840	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6841	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6842	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	6843	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC@0L@@@@@@@@@@@@@@@@@@@@C@0LB@PDB@0LC@@@@@@@@@@@@@@@C@ HBA@DAA@HB@ L@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6844	@@@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	6845	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	6846	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	6847	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	6848	@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	6849	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6850
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6851	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6852
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6853	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6854	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6855	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6856
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6857	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6858	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6859
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6860	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6861	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6862	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6863	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6864	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6865
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6866	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6867
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6868	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6869	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6870	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6871	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6872	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6873	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6874	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6875	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6876	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6877	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6878	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6879	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6880	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6881	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6882	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6883	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6884	#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	6885	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6886	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6887	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6888	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6889	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6890	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6891	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6892	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6893	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6894	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6895	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6896	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6897	#extent: #(#Point 600 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6898	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6899	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6900	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6901	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6902	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6903	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6904	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6905	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6906	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6907	#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	6908	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6909	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6910	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6911	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6912	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6913
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6914	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6915	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6916	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6917	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6918
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6919	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6920	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6921	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6922
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6923	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6924	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6925	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6926
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6927	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6928
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6929	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6930
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6931	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6932	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6933	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6934	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6935	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6936	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6937	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6938	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6939	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6940	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6941	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6942
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6943	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6944
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6945	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6946	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6947	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6948
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6949	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6950	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6951	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6952	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6953	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6954
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6955	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6956
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6957	dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6958	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6959
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6960	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6961	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6962	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6963	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6964
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6965	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6966	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6967	"/ 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	6968	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6969	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6970	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6971	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6972	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6973
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6974	preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6975	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6976
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6977	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6978	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6979	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6980	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6981
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6982	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6983	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6984	"/ 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	6985	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6986	"/ preemptive onChangeSend:#preemptiveChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6987	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6988	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6989	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6990
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6991	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6992
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6993	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6994	"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	6995
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6996	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6997
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6998	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6999	"/ ^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7000	"/ ].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7001
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7002	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7003	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7004
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7005	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7006
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7007	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7008
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7009	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7010	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7011	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7012	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7013	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7014
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7015	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7016
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7017	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7018	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7019	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7020
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7021	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7022	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7023
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7024	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7025	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7026	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7027	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7028	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7029
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7030	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7031
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7032	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7033	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7034	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	7035	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7036	@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	7037	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	7038	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	7039	JR0+JP@,JP@@@@HUEP@@@@@@@@@@@B$+KB,,J20)JP@@@@@@@@@@@@@@@@@)K@@)J0@+JR$@@@@@@@@@@@@@@@@@@@@@JR0)@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7040	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7041	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7042
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7043	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7044
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7045	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7046	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7047	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7048
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7049	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7050	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7051
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7052	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7053	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7054	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7055	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7056	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7057
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7058	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7059
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7060	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7061	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7062	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7063	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7064	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7065	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7066	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7067	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7068	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7069	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7070	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7071	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7072	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7073	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7074	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7075	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7076	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7077	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7078	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7079	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7080	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7081	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7082	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7083	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7084	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7085	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7086	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7087	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7088	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7089	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7090	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7091	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7092	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7093	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7094	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7095	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7096	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7097	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7098	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7099	#label: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7100	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7101	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7102	#enableChannel: #hasRDoitServerClass
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7103	#model: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7104	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7105	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7106	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7107
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7108	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7109	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7110	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7111	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7112	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7113	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7114	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7115	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7116	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7117	#label: 'Port:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7118	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7119	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7120	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7121	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7122	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7123	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7124	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7125	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7126	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7127	#model: #rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7128	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7129	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7130	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7131	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7132	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7133	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7134	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7135
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7136	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7137	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7138	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7139	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7140	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7141	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7142	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7143	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7144	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7145	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7146	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7147	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7148	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7149	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7150	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7151	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7152	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7153
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7154	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7155	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7156	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7157	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7158	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7159	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7160	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7161	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7162	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7163	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7164	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7165	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7166	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7167	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7168	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7169	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7171
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7172	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7173	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7174	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7175	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7176	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7177	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7178	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7179	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7180	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7181	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7182	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7183	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7184	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7185	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7186	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7187	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7188	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7189
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7191	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7192	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7193	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7194
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7195	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7196	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7197	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7198	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7199
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7200	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7201	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7202	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7203
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7204	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7205	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7206	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7207
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7208	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7209
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7210	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7211
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7212	\|rDoits\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7213
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7214	RDoItServer defaultPortNumber:self rDoitServerPort value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7215	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7216	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7217	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7218	rDoits := self rDoitsEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7219	rDoits ~~ RDoItServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7220	rDoits ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7221	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7222	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7223	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7224	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7225	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7226	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7227	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7228	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7229	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7230	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7231	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7232	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7233
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7234	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7235
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7236	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7237	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7238	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7239
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7240	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7241	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7242	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7243	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7244	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7245	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7246	self rDoitServerPort value:RDoItServer defaultPortNumber
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7247	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7248	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7249	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7250	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7251	self rDoitErrorDebugging value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7252	self rDoitServerPort value:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7253	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7254	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7255	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7256
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7257	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7258
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7259	rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7260
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7261	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7262	rDoitErrorDebugging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7263	rDoitErrorDebugging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7264	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7265	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7266	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7267
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7268	rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7269
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7270	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7271	rDoitErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7272	rDoitErrorLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7273	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7274	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7275	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7276
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7277	rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7278
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7279	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7280	rDoitLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7281	rDoitLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7282	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7283	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7284	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7285
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7286	rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7287
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7288	rDoitServerPort isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7289	rDoitServerPort := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7290	rDoitServerPort onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7291	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7292	^ rDoitServerPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7293	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7294
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7295	rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7296
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7297	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7298	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7299	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7300	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7301	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7302	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7303
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7304	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7305
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7306	rDoitsEnabledChanged
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7307	self evaluateModified.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7308	self rDoitsEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7309	RDoItServer isLoaded ifFalse:[RDoItServer autoload].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7310	rDoitServerPort value isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7311	rDoitServerPort value:(RDoItServer defaultPortNumber).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7312	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7313	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7314	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7315
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7316	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7317	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7318
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7319	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7320
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7321	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7322	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7323	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7324	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7325
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7326	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7327	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7328
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7329	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7330
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7331	postOpen
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7332	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7333
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7334	postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7335
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7336	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7337	^ super postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7338	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7339
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7340	postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7341
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7342	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7343	^ super postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7344	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7345
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7346	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7347
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7348	hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7349
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7350	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7351	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7352
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7353	hasRDoitServerClass
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7354	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7355	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7356
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7357	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7358
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7359	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7360	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7361	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7362	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7363	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7364	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7365	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7366	self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7367	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7368	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7369	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7370	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7371
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7372	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
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	stcCompilationDemoStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7375
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7376	^ #('never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7377	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7378
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7379	stcCompilationFullVersionStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7380
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7381	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7382	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7383
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7384	stcCompilationOptions
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	^ #( always default never)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7387	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7388
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7389	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7390
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7391	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7392	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7393	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7394
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7395	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7396	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7397
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7398	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7399	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7400	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7401	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7402	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7403
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7404	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7405
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7406	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7407	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7408	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	7409	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7410	@@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	7411	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	7412	@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	7413	@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	7414	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7415	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7416
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7417	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7418
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7419	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7420	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7421	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7422
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7423	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7424	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7425
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7426	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7427	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7428	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7429	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7430	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7431
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7432	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7433
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7434	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7435	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7436	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7437	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7438	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7439	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7440	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7441	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7442	#max: #(#Point 1024 768)
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7443	#bounds: #(#Rectangle 14 46 614 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7444	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7445	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7446	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7447	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7448	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7449	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7450	#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	7451	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7452	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7453	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7454	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7455	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7456	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7457	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7458	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7459	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7460	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7461	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7462	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7463	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7464	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7465	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7466	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7467	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7468	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7469	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7470	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7471	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7472	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7473	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7474	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7475	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7476	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7477	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7478	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7480	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7481
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	#extent: #(#Point 600 29)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7486	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7487	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7488	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7491	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7492	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7493	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7494	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7495	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7497	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7498	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7499	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	#model: #stc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7502	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7503	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7504	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7505	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7506	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7507	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7508	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7509
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7510	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7511	#extent: #(#Point 600 35)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7514	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7515	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7516	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7517	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7518	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7519	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7520	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7521	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7522	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7523	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7526	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7527	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7528	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7529	#model: #stcOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7530	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7531	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7532	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7533	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7534	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7535	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7536	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7537
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7538	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7539	#extent: #(#Point 600 35)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7542	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7543	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7544	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7545	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7546	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7547	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7548	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7549	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7550	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7551	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7554	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7555	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7556	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7557	#model: #cc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7558	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7559	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7560	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7561	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7562	#acceptOnPointerLeave: true
4387 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
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	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7568	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7569	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7570	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7571	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7572	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7573	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7575	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7576	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7577	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7578	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7579	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7580	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7581	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7582	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7583	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7584	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7585	#model: #ccOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7586	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7587	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7589	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7590	#acceptOnPointerLeave: true
4387 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	)
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	#extent: #(#Point 600 35)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7598	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7599	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7600	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7601	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7603	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7604	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7605	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7606	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7607	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7608	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7609	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7610	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7611	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7612	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7613	#model: #stcIncludes
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7614	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7615	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7616	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7617	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7618	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7619	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7620	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7621
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7622	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7623	#extent: #(#Point 600 35)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7626	#name: 'Box6'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7627	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7628	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7629	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7630	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7631	#label: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7632	#name: 'Label6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7633	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7634	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7635	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7638	#name: 'EntryField6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7639	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7640	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7641	#model: #stcDefines
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7642	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7643	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7644	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7645	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7646	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7647	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7648	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7649
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7650	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7651	#extent: #(#Point 600 34)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7654	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7655	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7656	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7657	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7658	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7659	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7660	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7661	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7662	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7663	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7664	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7665	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7666	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7667	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7668	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7669	#model: #linkCommand
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7670	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7671	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7672	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7673	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7674	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7675	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7676	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7677
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7678	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7679	#extent: #(#Point 600 33)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7680	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7681	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7682	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7683	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7684	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7685	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7686	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7687	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7688	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7689	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7690	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7691	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7694	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7695	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7696	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7697	#model: #linkArgs
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7698	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7699	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7700	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7701	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7702	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7703	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7704	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7705
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7706	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7707	#extent: #(#Point 600 32)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7708	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7709	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7710	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7711	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7712	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7713	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7714	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7715	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7716	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7717	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7718	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7719	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7720	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7721	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7722	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7723	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7724	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7725	#model: #stcLibraries
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7726	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7727	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7728	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7729	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7730	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7731	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7732	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7733
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7734	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7735	#extent: #(#Point 600 31)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7736	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7737	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7738	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7739	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7740	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7741	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7742	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7743	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7744	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7745	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7746	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7747	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7748	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7749	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7750	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7751	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7752	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7753	#model: #stcLibraryPath
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7754	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7755	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7756	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7757	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7758	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7759	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7760	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7761
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7762	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7763	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7764	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7765	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7766
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7767	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7768	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7769	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7770
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7771	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7772	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7773	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7774
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7775	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7776
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7777	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7778
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7779	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7780	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7781	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7782	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7783	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7784	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7785	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7786	Compiler stcPath:self stc value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7787	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7788	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7789	ObjectFileLoader linkArgs:self linkArgs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7790	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7791	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7792	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7793	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7794	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7795	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7796	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7797	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7798	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7799
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7800	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7801
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7802	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7803	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7804	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7805
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7806	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7807	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7808	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7809	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7810	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7811	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7812	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7813	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7814	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7815	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7816	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7817	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7818	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7819
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7820	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7821	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7822	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7823	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7824	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7825	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7826	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7827	self thisIsADemoVersion ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7828	self stcCompilationSelection value:(self class stcCompilationOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7829	indexOf:(Compiler stcCompilation)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7830	ifAbsent:2)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7831	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7832	self stcCompilationSelection value:2
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7833	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7834	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7835	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7836
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7837	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7838
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7839	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7840
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7841	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7842	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7843	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7844	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7845	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7846
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7847	cc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7848
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7849	cc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7850	cc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7851	cc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7852	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7853	^ cc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7854	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7855
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7856	ccOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7857
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7858	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7859	ccOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7860	ccOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7861	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7862	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7863	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7864
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7865	enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7866
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7867	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7868	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7869
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7870	linkArgs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7871
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7872	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7873	linkArgs := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7874	linkArgs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7875	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7876	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7877	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7878
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7879	linkCommand
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7880
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7881	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7882	linkCommand := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7883	linkCommand onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7884	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7885	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7886	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7887
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7888	stc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7889
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7890	stc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7891	stc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7892	stc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7893	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7894	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7895	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7896
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7897	stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7898
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7899	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7900	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7901	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7902	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7903	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7904	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7905	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7906	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7907	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7908
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7909	stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7910
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7911	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7912	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7913	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7914	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7915	stcCompilationSelection := 2 asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7916	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7917	stcCompilationSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7918	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7919	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7920	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7921
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7922	stcDefines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7923
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7924	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7925	stcDefines := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7926	stcDefines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7927	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7928	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7929	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7930
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7931	stcIncludes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7932
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7933	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7934	stcIncludes := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7935	stcIncludes onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7936	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7937	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7938	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7939
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7940	stcLibraries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7941
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7942	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7943	stcLibraries := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7944	stcLibraries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7945	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7946	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7947	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7948
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7949	stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7950
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7951	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7952	stcLibraryPath := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7953	stcLibraryPath onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7954	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7955	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7956	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7957
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7958	stcOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7959
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7960	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7961	stcOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7962	stcOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7963	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7964	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7965	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7966
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7967	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'change & update'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7968
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7969	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7970	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7971
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7972	"stub code automatically generated - please change as required"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7973
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7974	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7975	"/ ^ self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7976	"/ ].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7977
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7978	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7979	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7980
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7981	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7982
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7983	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7984
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7985	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7986	searchedLibs := ObjectFileLoader searchedLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7987	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7988	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7989	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7990	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7991	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7992	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7993	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7994	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7995	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7996	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7997	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7998	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7999	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8000	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8001	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8002	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8003	ObjectFileLoader libPath ~= self stcLibraryPath value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8004	])])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8005	]]]]]]]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8006	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8007	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8008
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8009	thisIsADemoVersion
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8010
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8011	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8012	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8013
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8014	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
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	exampleText
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	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8019	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8020	some stupid code to show the current settings"
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	\|index\|
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	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8025	self at:index. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8026	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8027	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8028	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8029	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8030	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8031	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8032	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8033	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8034	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8035	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8036	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8037	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8038	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8039	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8040	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8041	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8042	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8043	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8044	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8045	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8046	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8047	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8048	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8049	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8050	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8051	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8052	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8053	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8054	self someAction "/ blocks
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.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8060	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8061
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8062	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8063	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8064	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8065
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8066	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8067	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8068
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8069	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8070	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8071	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8072	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8073	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8074
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8075	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8076
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8077	^Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8078	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	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	8080	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	8081	@@(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	8082	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	8083	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	8084	@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	8085	@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	8086	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8087
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8088	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8089
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8090	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8091	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8094	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8095	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8096
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8097	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8098	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8099	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8100	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8101	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8102
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8103	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8104
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8105	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8106	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8107	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8108	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8109	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8110	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8111	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8112	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8113	#max: #(#Point 1024 768)
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8114	#bounds: #(#Rectangle 16 42 620 718)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8115	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8116	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8117	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8118	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121	#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	8122	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8123	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8124	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8125	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8126	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8127	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8128	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8129	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8130	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8131	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8132	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8133	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8134	#verticalSpace: 10
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8135	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8136	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8137	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8138	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8139	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8140	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8141	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8142	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8143	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8144	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8148	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8152	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8153	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8154	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8155	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8159	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8161	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8162	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8164	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8165	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8166	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8167	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8168
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	#extent: #(#Point 594 300)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8171	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8172	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8173	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8174	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8175	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8176	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8178	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8179	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8181	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8182	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8183	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8184	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8185	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8187	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8188	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194	#label: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8197	#model: #emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8199	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8200	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8201
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8202	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8203	#extent: #(#Point 594 22)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8206	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8207	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8208	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8209	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8210	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8211	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8212	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8213	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8214	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8215	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8216	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8217	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8218	#label: 'Space after '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8219	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8220	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8221	#model: #spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8222	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8223	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8224	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8225
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8226	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8227	#extent: #(#Point 594 22)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8230	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8231	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8232	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8233	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8234	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8235	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8236	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8237	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8238	#model: #blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8239	#translateLabel: true
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	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8242	#label: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8243	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8244	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8245	#model: #cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8246	#translateLabel: true
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	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8251	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8252	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8253	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8254	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8255	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8256	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8257	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8258	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8259	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8260	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8261	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8262	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8263	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8264	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8265	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8266	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8267	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8268	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8269	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8270	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8271	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8272	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8273	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8274	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8275	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8276	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8277	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8278	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8279	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8280	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8283	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8284	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8285	#model: #maxLengthForSingleLineBlocks
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8286	#type: #number
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8287	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8288	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8289	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8290	#acceptOnPointerLeave: true
4398 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
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	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8296	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8297	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8298	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8299	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8300	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8301	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8302	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8303	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8304	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8305	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8306	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8307	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8308	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8309	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8310	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8311	#extent: #(#Point 292 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8312	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8313	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8314	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8317	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8318	#extent: #(#Point 293 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8319	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8320	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8321
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	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8324	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8325	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8326
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8327	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8328	#extent: #(#Point 594 150)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8329	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8330	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8333	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8334	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8335	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8336
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8337	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8338	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8339	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8340
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8341	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8342	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8343	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8345	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8346
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8347	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8348
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8349	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8350	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8351	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8352	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8353	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8354	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8355	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8356	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8357	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8358	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8359	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8360	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8361	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8362	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8363	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8364	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8365	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8366	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8367	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8368
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8369	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8370
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8371	"/ self warn:'no help available here'.
4419 d5de0cf67edb new source code format settings help file penk parents: 4405 diff changeset	8372	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8373	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8374
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8375	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8376	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8377	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8378	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8379	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8380	self emptyLineAfterTemporaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8381	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8382	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8383	self spaceAfterKeywordSelector
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8384	value:RBFormatter spaceAfterKeywordSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8385	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8386	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8387	self maxLengthForSingleLineBlocks
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8388	value:RBFormatter maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8389	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8390	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8391	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8392	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8393	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8394
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8395	reformat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8396
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8397	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8398	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8399	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8400
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8401	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8402	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8403	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8404	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8405	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8406	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8407	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8408	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8409	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8410	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8411	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8412	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8413
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8414	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8415	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8416	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8417	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8418	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8419	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8420	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8421	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8422	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8423
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8424	tree := RBParser
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8425	parseMethod:self class exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8426	onError: [:aString :position \| nil].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8427	tree do:[:node \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8428	(node ~~ tree and:[node parent isNil]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8429	self error:'No parent for node'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8430	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8431	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8432	self editorText value:tree printString.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8433
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8434	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8435	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8436	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8437	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8438	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8439	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8440	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8441	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8442	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8443	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8444	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8445
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8446	resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8447
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8448	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8449	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8450	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8451	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8452	self spaceAroundTemporaries value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8453	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8454	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8455	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8456	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8457	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8458	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8459	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8460
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8461	resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8462
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8463	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8464	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8465	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8466	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8467	self spaceAroundTemporaries value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8468	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8469	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8470	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8471	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8472	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8473	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8474	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8475
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8476	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8477
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8478	autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8479
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8480	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8481	autoFormat := currentUserPrefs autoFormatting asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8482	autoFormat onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8483	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8484	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8485	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8486
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8487	blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8488
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8489	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8490	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8491	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8492	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8493	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8494	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8495
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8496	cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8497
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8498	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8499	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8500	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8501	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8502	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8503	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8504
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8505	editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8506
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8507	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8508	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8509	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8510	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8511	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8512
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8513	emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8514
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8515	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8516	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8517	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8518	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8519	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8520	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8521
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8522	maxLengthForSingleLineBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8523
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8524	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8525	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8526	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8527	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8528	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8529	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8530
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8531	spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8532
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8533	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8534	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8535	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8536	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8537	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8538	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8539
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8540	spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8541
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8542	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8543	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8544	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8545	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8546	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8547	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8548
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8549	spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8550
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8551	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8552	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8553	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8554	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8555	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8556	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8557
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8558	tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8559
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8560	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8561	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8562	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8563	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8564	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8565	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8566
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8567	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8568
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8569	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8570	"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	8571
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8572	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8573
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8574	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8575	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8576	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8577	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8578	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8579	changedObject == self spaceAfterReturnToken or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8580	changedObject == self spaceAroundTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581	changedObject == self tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8582	]]]]]]]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8583	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8584	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8585	^ self.
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	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8588	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8589
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8590	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8591
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8592	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8593	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8594	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8595	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8596	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8597	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8598	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8599	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8600	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8601	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8602
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8603	postBuildTextEditor:aWidget
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8604
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8605	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8606	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8607	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8608
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8609	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8610
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8611	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8612
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8613	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8614	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8615	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8616	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8617	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8618	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8619	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8620	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8621	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8622	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8623	]]]]]]]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8624	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8625	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8626
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8627	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8630	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8631	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8634	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8635
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8636	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8637	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8638	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8639	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8640	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8641
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8642	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8643
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8644	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8645	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8646	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	8647	@@@@@@@@@@@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	8648	@@@QMTT5H0$@@@@@@@@@@@ F@@@@@@@@FT(>GPX@@@@@@@@@@@@@A @@@@@@@A!!HMR4H@@@@@@@@@@@@@@@@@@XNE1\ QSL]B0XFA @@@@@@@@@@@@@FGDAI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8649	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	8650	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	8651	@@@@@@@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	8652	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	8653	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8654
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8655	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8657	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8658	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8659	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8661	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8662	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8663
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8664	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8665	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8666	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8667	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8668	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8670	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8672	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8673	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8674	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8675	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8676	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8677	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8678	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8679	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8680	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8681	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8682	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8683	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8684	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8685	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8686	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8687	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8688	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8689	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8690	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8691	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8692	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8693	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8694	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8695	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8696	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8697	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8698	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8699	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8700	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8701	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8702	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8703	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8704	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8705	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8706	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8707	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8708	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8709	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8710	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8711	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8712	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8713	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8714	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8715	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8716	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8717	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8718	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8719
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8720	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8721	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8722	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8723	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8724	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8725	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8726	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8727	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8728	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8729	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8730	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8731	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8732	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8733	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8734	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8735	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8736	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8737	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8738	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8739	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8740	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8741	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8742	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8743	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8744	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8745	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8746	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8747	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8748	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8749	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8750	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8751	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8752	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8753	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8754	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8755
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8756	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8757	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8758	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8759	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8760	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8761	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8762	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8763	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8764	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8765	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8766	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8767	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8768	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8769	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8770	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8771	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8772	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8773	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8774	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8775	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8776	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8777	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8778	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8779	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8780	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8781	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8782	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8783	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8784	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8785	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8786	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8787	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8788
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8789	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8790	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8791	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8792	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8793	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8794	#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	8795	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8796	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8797	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8798	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8799	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8800	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8801	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8802	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8803	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8804	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8805	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8806	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8807	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8808	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8809	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8810	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8811	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8812	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8813	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8814	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8815	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8816	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8817	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8818	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8819	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8820	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8821	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8822	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8823	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8824	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8825	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8826	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8827	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8828	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8829	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8830	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8831	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8832	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8833	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8834	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8835	#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	8836	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8837	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8838	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8839	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8840	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8841	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8842	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8843	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8844	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8845	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8846	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8847	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8848	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8849	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8850	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8851	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8852	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8853	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8854	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8855	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8856	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8857	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8858	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8859	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8860	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8861	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8862	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8863	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8864	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8865	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8866	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8867	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8868	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8869	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8870	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8871	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8872	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8873	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8874	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8875	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8876	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8877
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8878	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8879	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8880	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8881
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8882	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8883	#extent: #(#Point 661 321)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8884	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8885	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8886	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8887	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8888	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8889	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8890	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8891	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8892	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8893	#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	8894	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8895	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8896	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8897	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8898	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8899	#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	8900	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8901	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8902	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8903	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8904	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8905	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8906	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8907	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8908	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8909
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8910	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8911	#extent: #(#Point 661 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8912	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8913	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8914	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8915	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8916	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8917	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8918	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8919	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8920	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8921	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8922	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8923	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8924	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8925	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8926	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8927	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8928	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8929	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8930	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8931	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8932	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8933	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8934	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8935	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8936	#extent: #(#Point 286 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8937	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8938	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8939
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8940	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8941	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8942	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8943	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8944	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8945	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8946	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8947	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8948	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8949	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8950	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8951	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8952	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8953	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8954	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8955	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8956	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8957
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8958	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8959	#extent: #(#Point 661 25)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8960	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8961	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8962	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8963	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8964	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8965	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8966	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8967	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8968	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8969	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8970	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8971	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8972	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8973	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8974	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8975
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8976	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8977	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8978	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8979	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8980
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8981	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8982	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8983	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8984	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8985
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8986	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8987	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8988	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8990	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8991	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8992	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8993
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8994	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8995
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8996	manager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8998	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8999	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9000
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9001	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9002
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9003	addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9004
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9005	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9006
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9007	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9008	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9009	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9010	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9011	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9012	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9013	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9014	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9015	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9016	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9017	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9018
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9019	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9020
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9021	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9022	manager isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9023	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9024	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9025	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9026	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9027
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9028	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9029	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9030	nm := self sourceCacheDir value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9031	nm size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9032	(fn := nm asFilename) exists ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9033	(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	9034	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9035	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9036	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9037	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9038	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9039	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9040	(fn exists
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9041	and:[fn isDirectory
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9042	and:[fn isReadable
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9043	and:[fn isWritable]]]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9044	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9045	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9046	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9047	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9048	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9049	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9050
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9051	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9052	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9053	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9054	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9055	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9056	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9057	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9058	self cvsBinDirectoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9059	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9060	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9061	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
4760 206a67dba8a8 repository changes after initialize will now reloaded penk parents: 4737 diff changeset	9062	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9063	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	9064	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9065	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9066	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9067	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9068	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9069
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9070	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9071	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9072	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9073
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9074	condenseSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9075
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9076	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9077	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9078
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9079	flushSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9080
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9081	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
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	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9086	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9087	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9088	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9089
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9090	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9091	self hasManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9092	self useManager
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9093	value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9094	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9095	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9096	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9097	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9098	repository := manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9099	repository notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9100	repositoryHolder := repository asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9101	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9102	repositoryHolder := '' asValue
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9103	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9104	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9105	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9106	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9107	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9108	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9109	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9110	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9111	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9112	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9113	self cvsRootHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9114	value:CVSSourceCodeManager repositoryName ? '/files/CVS'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9115	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	9116	listOfModules := rootsPerModule keys asList.
98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	9117	self selectedPerModuleRootChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9118	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9119	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9120
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9121	removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9122
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9123	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9124
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9125	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9126	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9127	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9128	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9129	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9130	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9131	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9132
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9133	setupSourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9134
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9135	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9136	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9137	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9138	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9139	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9140	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9141	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9142	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9143
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9144	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9145
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9146	acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9147
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9148	acceptChannel isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9149	acceptChannel := TriggerValue new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9150	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9151	^ acceptChannel.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9152	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9153
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9154	checkClassesWhenCheckingIn
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9156	checkClassesWhenCheckingIn isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9157	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9158	checkClassesWhenCheckingIn onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9159	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9160	^ checkClassesWhenCheckingIn.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9161	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9162
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9163	cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9164	cvsBinDirectoryHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9165	cvsBinDirectoryHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9166	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9167	^ cvsBinDirectoryHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9168	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9169
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9170	cvsIsSetup
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9171	cvsIsSetup isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9172	cvsIsSetup := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9173	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9174	^ cvsIsSetup.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9175	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9176
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9177	cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9178
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9179	cvsRootHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9180	cvsRootHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9181	cvsRootHolder onChangeSend:#evaluateModified to:self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9182	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9183	^ cvsRootHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9184	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9185
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9186	cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9187
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9188	cvsRootPrototypeList isNil ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9189	OperatingSystem getDomainName = 'exept' ifFalse:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9190	cvsRootPrototypeList := #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9191	'host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9192	':pserver:user@host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9193	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9194	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9195	] ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9196	cvsRootPrototypeList := #(
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9197	'/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9198	'exept:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9199	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9200	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9201	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9202
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9203	OperatingSystem isUNIXlike ifTrue:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9204	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9205	'/cvs/stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9206	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9207	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9208	OperatingSystem isMSDOSlike ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9209	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9210	':local:c:\cvs\stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9211	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9212	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9213	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9214	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9215	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9216	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9217	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9218	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9219
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9220	listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9221
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9222	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9223	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9224	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9225	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9226	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9227	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9228
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9229	localSourceFirst
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9231	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9232	localSourceFirst := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9233	localSourceFirst onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9234	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9235	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9236	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9237
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9238	perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9239	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9240
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9241	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9242	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9243	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9244	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9245
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9246	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9247	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9248	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9249	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9250	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9251	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9252	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9253	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9254
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9255	perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9256	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9257
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9258	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9259	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9260	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9261	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9262
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9263	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9264	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9265	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9266	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9267	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9268	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9269	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9270	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9271
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9272	removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9273
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9274	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9275	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9276	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9277	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9278	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9279
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9280	selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9281
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9282	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9283	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9284	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9285	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9286	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9287	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9288	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9289	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9290
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9291	sourceCacheDir
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9293	sourceCacheDir isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9294	sourceCacheDir := nil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9295	sourceCacheDir addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9296	sourceCacheDir onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9297	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9298	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9299	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9300
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9301	useManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9303	useManager isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9304	useManager := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9305	useManager onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9306	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9307	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9308	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9309
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9310	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9311
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9312	selectedPerModuleRootChanged
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9313
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9314	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9315
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9316	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9317	module := self selectedPerModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9318	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9319	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9320	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9321	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9322	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9323
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324	sourceDirChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9325
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9326	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9327	\| nm fn\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9328	nm := self sourceCacheDir value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9329	nm size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9330	(fn := nm asFilename) exists ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9331	(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9332	fn makeDirectory;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9333	makeReadableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9334	makeWritableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9335	makeExecutableForAll.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9336	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9338	(fn exists
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9339	and:[fn isDirectory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9340	and:[fn isReadable
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9341	and:[fn isWritable]]]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9342	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9343	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9344	self warn:'Invalid sourceCache directory.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9345	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9346	]
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	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9350
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9351	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9352	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9354	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356	changedObject == self sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9357	self sourceDirChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9358	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9359	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9360	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9361	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9362	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9363	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9368	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9371	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9372
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373	(AbstractSourceCodeManager notNil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9374	and:[AbstractSourceCodeManager isLoaded not])
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9375	ifTrue:[AbstractSourceCodeManager autoload].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9376	repositoryHolder := '' asValue.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9377	rootsPerModule := Dictionary new
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9378	declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9379	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9380
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9381	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9382	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9384	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9387	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9388	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9389
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9390	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9392	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9393	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9394	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9395
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9396	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9398	hasManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9399	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9400	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9401	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9402
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9403	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9404
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9405	^ (
4563 91c1ee6edf45 * empty log message * penk parents: 4541 diff changeset	9406	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9407	((self hasManager and:[self useManager value]) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9408	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9409	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9410	) or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9411	(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9412	CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9413	CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9414	(Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9415	]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9416	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9417	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9418
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9419	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9420
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9421	standardStyles
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9423	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9424	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9425	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9426	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9427	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9428	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9429	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9430	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9431	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9432	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9433	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9434
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9435	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9436
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9437	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9438	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9439	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9440
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9441	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9442	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9443
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9444	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9445	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9446	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9447	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9448	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9449
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9450	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9451
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9452	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9453	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9454	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	9455	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9456	@@@@@@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	9457	@ 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	9458	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	9459	@ 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	9460	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	9461	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9462
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9463	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9465	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9466	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9467	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9468
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9469	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9470	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9472	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9473	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9474	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9475	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9476	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9477
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9478	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9480	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9481	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9482	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9483	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9484	#(#WindowSpec
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9485	#label: 'ViewStyle Selection'
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9486	#name: 'ViewStyle Selection'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9487	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9488	#max: #(#Point 1024 768)
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9489	#bounds: #(#Rectangle 16 42 491 573)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9490	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9491	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9492	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9493	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9496	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9497	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9498	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9499	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9500	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9501	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9502	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9503	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9504	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9505	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9506	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9507	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9508	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9509	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9510	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9511	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9512	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9513	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9514	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9515	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9516	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9517	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9518	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9519	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9520	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9521	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9522	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9523	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9524	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9525	#hasVerticalScrollBar: true
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9526	#doubleClickSelector: #doubleClickAt:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9527	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9528	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9529	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9530	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9532	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9534	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9538	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9539
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9540	\| newStyle transcript\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9541
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9542	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	9543
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9544	self withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9545	Transcript showCR:'change style to ' , newStyle , ' ...'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9546	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9547	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9548	DebugView newDebugger.
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9549	transcript := Transcript current.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9550	transcript notNil ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9551	\| app\|
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9552	app := transcript topView application.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9553	(app respondsTo:#reopenLauncher) ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9554	app reopenLauncher.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9555	].
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9556	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9557	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9558
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9559	doubleClickAt:aLine
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9560
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9561	self saveSettings.
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9562	!
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9563
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9569
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9570	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9571	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9572	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9574	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9576	infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578	infoLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579	infoLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9580	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9581	^ infoLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9582	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9584	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9586	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9587	noticeLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9588	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9589	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9590	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9591
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592	selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9594	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9595	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9596	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9597	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9598	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9599	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9601	showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9603	showStandardStylesOnly isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9604	showStandardStylesOnly := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9605	showStandardStylesOnly addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9606	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9607	^ showStandardStylesOnly.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9608	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9610	styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9612	styleList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9613	styleList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9614	styleList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9615	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9616	^ styleList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9617	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9618
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9619	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9621	changeInfoLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9623	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9625	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9626	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9627	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9628	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9629	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9630	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9631	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9632	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9633	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9634	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9635	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9636	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9638	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9639	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9641	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9643	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9644	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9645	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9646	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9647	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9648	self changeInfoLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9649	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9650	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9651	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9653	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9654	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9655
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9656	updateList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9658	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9660	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9661	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9662	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9663	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9664	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9665	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9666	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9667	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9668	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9669	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9670
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9671	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9672	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9673	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9674	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9676	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9678	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9679	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9680	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9681	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9682	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9684	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9685	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9686	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9687	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9689	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9691	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9692	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9693	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9695	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9697	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9698
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9699	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9700
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9701	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9702	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9703	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9704	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9705	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9706	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9707	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9708	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9709	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9710	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9711	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9712	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9713	self warn:'no styles found (missing ''resources'' directory)'.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9714	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9715	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9716	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9717
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9718	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9719	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9720	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9721	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9722	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9723	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9724
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9725	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9726	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9727	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9728	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9729	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9730	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9731	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9733	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9735	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9737	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9738	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9739
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9742	emphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9755	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9756	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9757	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9758	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9759	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9760	#reverse
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	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9775	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9776	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9777	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9778	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	!
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	fontList
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	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9789	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9790	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9802	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9804	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9805	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9806
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9813	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9818	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9819	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9822	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9823
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9824	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9826	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	9827	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	9828	@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	9829	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	9830	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	9831	@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	9832	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	9833	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9838	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9841	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9842	the UIPainter may not be able to read the specification."
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	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9846	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9847	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9849
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9850	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9851
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9852	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9853	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9855	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9856	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861	#bounds: #(#Rectangle 16 42 711 651)
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	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9865	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9866	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9867	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9868	#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	9869	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9870	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9871	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9872	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9873	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9874	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9875	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9876	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9877	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9878	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9879	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9880	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9882	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9883	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9884	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9885	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9886	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9887	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9888	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9889	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9890	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9891	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9892	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9893	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9894	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9895	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9896	#model: #fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9897	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9898	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9899	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9900	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9901	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9902	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9903	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9904	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9905	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9906	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9907	#extent: #(#Point 685 280)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9908	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9909	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9910	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9911	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9912	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9913	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9914	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9915	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9916	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9917	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9918	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9919	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9920	#useIndex: false
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
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	#extent: #(#Point 685 35)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9928	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9929	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9930	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9931	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9932	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9933	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9934	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9935	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9936	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9937	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9938	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9939	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9940	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9941	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9942	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9943	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9944	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9945	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9946	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9947	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9948
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9949	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9950	#extent: #(#Point 685 44)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9953	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9954	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9955	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9956	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9957	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9958	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9959	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9960	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9961	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9962	#labelsAreColored: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9963	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9964	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9965	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9966	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9967	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9968	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9969	#adjust: #left
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9972
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9973	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9974	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9975	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9976	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9977	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9978	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9979	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9980	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9981	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9982	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9983	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9984	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9985	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9986	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9987	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9988	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9989	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9990	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9992	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9993	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9994	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9995	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9996	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9997	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9998
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9999	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10000	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10001	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10002	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10003
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10004	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10005	#extent: #(#Point 695 609)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10006	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10007	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10008
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10009	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10010	)
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10018
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10019	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10020
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10021	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10022	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10023	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10024	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10025
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10026	formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10027	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10028
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10029	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10030	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10031	"*** Please change as required and accept in the browser."
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	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10034
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10035	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10036	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10037
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10038	help
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	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10041	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10044	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10045	\|colorList resetListLoc\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10046
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10047	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10048	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10049	reset;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10050	current) declareAllFrom:oldUserPreferences
4398 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 syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10053	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10054	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10055	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10056	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10057	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10059	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10060	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10061	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10062	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10063	self modifiedChannel value:false
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10066	recolor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10067
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10068	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10070	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10071	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10073	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10074	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10075	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10076	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10077
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10078	resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10079
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10080	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10081
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10082	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10083	currentUserPrefs perform:resetSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10084	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10085	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10086	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10087
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10088	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10089
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10090	coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10091
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10092	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10093	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10094	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10095	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10098	fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10099
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10100	fullSelectorCheck isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10101	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10102	fullSelectorCheck onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10103	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10104	^ fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10105	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10106
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10107	resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10108
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10109	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10110	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10111	"/ 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	10112	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10113	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10114	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10115	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10116	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10117
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10118	resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10120	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10122	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10123	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10125
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10126	syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10127
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10128	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10129	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10130	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10131	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10132	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10133	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10134
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10135	syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10136
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10137	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10138	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10139	syntaxColoring addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10140	syntaxColoring onChangeSend:#evaluateModified to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10141	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10142	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10143	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10144
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10145	syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10146	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10147
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10148	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10149	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10150	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10151	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10152
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10153	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10154	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10155	"/ 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	10156	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10157	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10158	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10159	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10160	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10161
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10162	syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10163
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10164	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10165	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10166	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10167	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10168	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10169	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10170	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10171
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10172	syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10173	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10174
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10175	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10176	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10177	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10178	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10179
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10180	syntaxEmphasisList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10181	syntaxEmphasisList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10182	"/ 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	10183	"/ syntaxEmphasisList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10184	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
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	^ syntaxEmphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10187	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10188
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10189	syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10190
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10191	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10192	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10193	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10194	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10195	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10196	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10197
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10198	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10199
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10200	getEmphasis:anEmphasisOrSymbol
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10201	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10202
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10203	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10204	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10205
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10206	syntaxColorChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10207
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10208	currentUserPrefs at:(self syntaxColorSelector value) put:(self syntaxColor value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10209	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10210	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10211	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10212
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10213	syntaxElementSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10214
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10215	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10216
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10217	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10218	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10219	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10220	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10221	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10222
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10223	syntaxEmphasisSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10224
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10225	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10226
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10227	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10228	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10229	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10230	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10231	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10232
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10233	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10234	"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	10235
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10236	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10237
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10238	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10239	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10240	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10241	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10242	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10243	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10244	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10245	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10246	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10247	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10248	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10249	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10250	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10251	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10252	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10253	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10254
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10255
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10256	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10257	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10258
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10259	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10260
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10261	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10262	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10263	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10264
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10265	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10266	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10267	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10268	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10269	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10270
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10271	initializeEmphasisDictionary
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10272
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10273	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10274	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10275	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10276	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10277	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10278	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10279	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10280	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10281	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10282	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10283	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10284	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	10285	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	10286	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10287	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10288	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	10289	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	10290	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10291	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10292	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	10293	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	10294	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10295	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10296	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	10297	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	10298	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10299	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10300	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10301	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10302	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10303	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10304	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10305	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10306	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10307	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10308
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10309	release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10310
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10311	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10312	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10313	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10314	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10315	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10320
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10321	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10322
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10323	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10324	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10325	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10326	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10327	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10328	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10329	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10330	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10331	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10332	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10333	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10334	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10335	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10336	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10337	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10338	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10339
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10340	syntaxColorSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10341
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10342	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10343	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10345	syntaxColorSelectorForElement:aSyntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10346
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10347	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10348	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10349
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10350	syntaxEmphasisSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10351
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10352	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10353	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10354
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10355	syntaxEmphasisSelectorForElement:anEmElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10356
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10357	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10358	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10359
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10360	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10361
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10362	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10363	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10364	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10365
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10366	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10367	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10368
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10369	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10370	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10371	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10372	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10373	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10374
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10375	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10376
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10377	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10378	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10379	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	10380	@@@@@@@@@@@@A XFA @@@@@@@@@@@@@@@@@@@@@@A!!HRCPX@@@@@@@@@@@@@@@@@@@@@A!!H.KP4MA @@@@@@@@@@@@@@@@@@@@XRPB<#H0L@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10381	@@@@@@@FD$@/H2LC@@@@@@@@@@@@@@@@@@@@A!!H6LRH"@P@@@@@@@@@@@@@@@@@@@@XFC#LKB0D@@@@@@@@@@@@@@@@@@@@@@@XZ@PD@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10382	@@@@@@@FF DA@@@@@@@@@@@@@@@@@@@@@@@@A!!(A@P@@@@@@@@@@@@@@@@@@@@\GA3@ZDQDAAPT@@@@@@@@@@@@@@@\;QDP''EQ@PE@$IAP@@@@@@@@@@@@@G
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10383	N4QDI1TPDAPIBPT@@@@@@@@@@@@@A31CP3(UJ"( B (D@@@@@@@@@@@@@@\>Q4\8IR0,J1@PA@@@@@@@@@@@@@@GO$]GNBT,KB,PD@P@@@@@@@@@@@@@A35H
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10384	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	10385	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	10386	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10387
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10388	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10389
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10390	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10391	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10392	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10393
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10394	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10395	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10396
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10397	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10398	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10399	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10400	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10401	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10402
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10403	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10404
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10405	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10406	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10407	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10408	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10409	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10410	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10411	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10412	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10413	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10414	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10415	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10416	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10417	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10418	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10419	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10420	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10421	#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	10422	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10423	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10424	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10425	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10426	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10427	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10428	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10429	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10430	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10431	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10432	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10433	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10434	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10435	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10436	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10437	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10438	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10439	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10440	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10441	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10442	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10443	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10444	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10445	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10446	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10447	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10448	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10449	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10450	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10451	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10452	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10453	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10454	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10455	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10456	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10457	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10458	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10459	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10460	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10461	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10462	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10463	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10464	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10465	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10466	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10467	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10468	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10469	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10470	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10471	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10472	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10473	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10474	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10475
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10476	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10477	#extent: #(#Point 551 133)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10478	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10479	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10480	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10481	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10482	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10483	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10484	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10485	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10486	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10487	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10488	#label: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10489	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10490	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10491	#model: #updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10492	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10493	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10494	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10495	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10496	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10497	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10498	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10499	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10500	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10501	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10502	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10503	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10504	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10505	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10506	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10507	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10508	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10509	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10510	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10511	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10512	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10513	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10514	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10515	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10516	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10517	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10518	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10519
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10520	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10521	#extent: #(#Point 551 120)
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	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10526	#extent: #(#Point 551 250)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10531	)
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	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10539
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10540	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10541
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10542	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10543	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10544	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10545	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10546	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10547	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10548	Class updateChanges:self updChanges value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10549	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10550
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10551	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10553	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10554	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10555
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10556	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10557	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10558	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10559	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10560	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10561	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10562	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10563	self updChanges value:Class updatingChanges.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10564	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10565	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10567	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10568
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10569	changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10570
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10571	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10572	changeFileName := ObjectMemory nameForChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10573	changeFileName onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10574	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10575	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10576	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10577
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10578	classInfos
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10579
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10580	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10581	classInfos := Object infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10582	classInfos onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10583	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10584	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10585	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10587	displayErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10588
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10589	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10590	displayErrors := DeviceWorkstation errorPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10591	displayErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10592	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10593	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10594	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10595
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10596	logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10597
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10598	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10599	logDoits := Smalltalk logDoits asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10600	logDoits onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10601	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10602	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10603	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10604
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10605	updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10606
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10607	updChanges isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10608	updChanges := Class updatingChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10609	updChanges onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10610	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10611	^ updChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10612	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10613
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10614	vmErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10616	vmErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10617	vmErrors := ObjectMemory debugPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10618	vmErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10619	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10620	^ vmErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10621	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10623	vmInfo
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10625	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10626	vmInfo := ObjectMemory infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10627	vmInfo onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10628	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10629	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10630	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10631
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10632	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10633
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10634	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10635
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10636	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10637	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10638	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10640	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10642	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10644	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10645	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10646	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10647	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10648	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10649	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10650	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10651	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10652
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10653	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10654
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10655	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10656	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10657	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10658
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10659	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10660	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10661
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10662	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10663	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10664	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10665	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10666	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10667
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10668	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10669
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10670	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10671	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10672	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	10673	@ 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	10674	@@@@@@@D@ XFA @@@@@@@@@@@@HB@@@@@@@@@@HC@ XFA @@@@@@@@@B@ @@@@@@@@@@@@\BCPXF@@@@@@@@@ H@@@@RB @@@@@@@ <MA @@@@@@@@HB@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10675	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	10676	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	10677	@@@@@@@@@@@@D 4@@@HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10678	@ 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	10679	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10680
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10681	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10683	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10684	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10685	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10687	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10688	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10690	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10691	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10692	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10693	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10694	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10696	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10698	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10699	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10700	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10701	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10702	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10703	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10704	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10705	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10706	#max: #(#Point 1024 768)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10707	#bounds: #(#Rectangle 16 42 511 513)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10708	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10709	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10710	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10711	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10712	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10713	#name: 'VerticalPanel2'
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10714	#layout: #(#LayoutFrame 0 0 0 0 358 0 234 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10715	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10716	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10717	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10718	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10719	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10720	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10721	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10722	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10723	#label: 'Use the New Changes Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10724	#name: 'ChangesBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10725	#model: #useNewChangesBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10726	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10727	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10728	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10729	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10730	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10731	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10732	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10733	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10734	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10735	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10736	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10737	#label: 'Use the New VersionDiff Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10738	#name: 'VersionDiffBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10739	#model: #useNewVersionDiffBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10740	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10741	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10742	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10743	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10744	#label: 'Use the New File Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10745	#name: 'NewFileBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10746	#model: #useNewFileBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10747	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10748	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10749	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10750	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10751	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10752	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10753	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10754	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10755	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10756	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10757	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10758	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10759	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10760	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10761	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10762	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10763	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10764	#(#CheckBoxSpec
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10765	#label: 'Use the New Process Monitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10766	#name: 'UseNewProcessMonitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10767	#model: #useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10768	#translateLabel: true
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10769	#extent: #(#Point 489 25)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10770	)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10771	#(#CheckBoxSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10772	#label: 'Use Hierarchical Inspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10773	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10774	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10775	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10776	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10777	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10778	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10779	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10780	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10781	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10782	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10783	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10784	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10785	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10786	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10787	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10788	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10789	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10790	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10791	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10792	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10793	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10794	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10795	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10796	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10797	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10798	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10799	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10800	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10801	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10802	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10803	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10804	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10805	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10806	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10807	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10808	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10809
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10810	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10811	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10812	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10813	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10815	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10816	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10817	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10818	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10819
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10820	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10821	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10822	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10824	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10825
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10826	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10827
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10828	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10829
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10830	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10831	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10832	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10833	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10834	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10835	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10836	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10837	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10838	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10839	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10840	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10841	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10842	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10843	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10844	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10845	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10846	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10847	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10848	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10849	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10850	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10851	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10852	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10853	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10854	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10855	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10856	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10857	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10858	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10859	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10860	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10861	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10862	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10863	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10864	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10865	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10866	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10867	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10868	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10869	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10870	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10871	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10872	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10873
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10874	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10875
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10876	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10877	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10878
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10879	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10880	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10881	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10882	self transcriptBufferSize value:Transcript current lineLimit.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10883	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10884	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10885	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10886	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10887	self useNewVersionDiffBrowser
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10888	value:currentUserPrefs useNewVersionDiffBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10889	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10890	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10891	self useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10892	value:currentUserPrefs useNewSettingsApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10893	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10894	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10896	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10897
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10898	showClockInLauncher
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10899
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10900	showClockInLauncher isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10901	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10902	showClockInLauncher onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10903	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10904	^ showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10905	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10906
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10907	transcriptBufferSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10909	transcriptBufferSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10910	transcriptBufferSize := Transcript current lineLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10911	transcriptBufferSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10912	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10913	^ transcriptBufferSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10914	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10915
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10916	useNewChangesBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10918	useNewChangesBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10919	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10920	useNewChangesBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10921	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10922	^ useNewChangesBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10923	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10924
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10925	useNewFileBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10927	useNewFileBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10928	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10929	useNewFileBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10930	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10931	^ useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10932	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10933
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10934	useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10935
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10936	useNewFileDialog isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10937	useNewFileDialog := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10938	useNewFileDialog onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10939	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10940	^ useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10941	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10942
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10943	useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10944
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10945	useNewInspector isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10946	useNewInspector := currentUserPrefs useNewInspector asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10947	useNewInspector onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10948	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10949	^ useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10950	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10951
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10952	useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10953
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10954	useNewSettingsApplication isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10955	useNewSettingsApplication := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10956	useNewSettingsApplication onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10957	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10958	^ useNewSettingsApplication.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10959	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10960
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10961	useNewSystemBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10963	useNewSystemBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10964	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10965	useNewSystemBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10966	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10967	^ useNewSystemBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10968	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10969
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10970	useNewVersionDiffBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10971
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10972	useNewVersionDiffBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10973	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10974	useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10975	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10976	^ useNewVersionDiffBrowser.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10977	!
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10978
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10979	useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10980
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10981	useProcessMonitorV2 isNil ifTrue:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10982	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10983	useProcessMonitorV2 onChangeSend:#evaluateModified to:self
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10984	].
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10985	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10986	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10988	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10990	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10992	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10993	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10994	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10995	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10996	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10997	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10998	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10999	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	11000	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	11001	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11002	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11003
4226 44e2f83cc526 initial checkin penk parents: diff changeset	11004	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	11005
44e2f83cc526 initial checkin penk parents: diff changeset	11006	version
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	11007	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.47 2003-04-03 14:11:30 penk Exp $'
98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	11008	! !

author	penk
	Thu, 03 Apr 2003 16:11:30 +0200
changeset 4779	98f77618ef6f
parent 4767	389c0248d6bd
child 4805	a25bdf89086d
permissions	-rw-r--r--